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.PEN X 



SEQ 0001 



IDENTIFICATION 
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PRODUCT NAME: 
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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS 
A COMMITMENT BV DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN 
THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED 
TO THE PURCHASER UNDER A LICENSE FOR USE ON A SINGLE 
COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION OF 
DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM. EXCEPT AS MAY OTHERWISE BE PROVIDED IN 
WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
DIGITAL. 



COPYRIGHT (C) 1975. 1978 BY DIGITAL EQUIPMENT CORPORATION 
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QUICK LOOK-UP OPERATING INSTRUCTIONS 
FOR A QUICK REFERENCE, LOOK UP THE FOLLOWING SECTIONS: 
1.0 ABSTRACT 

2.0 REQUIREMENTS 

4.1 LOADING AND OPERATOR ACTION 
7.0 SWITCH OPTIONS 

FOR A MORE COMPLETE EXPLANATION REFER TO THE TABLE OF 
CONTENTS BELOW AND THE FOLLOWING DOCUMENT. 

TABLE OF CONTENTS 

I. 0 ABSTRACT 

2.0 REQUIREMENTS 

2.1 EQUIPMENT 

2.2 PRELIMINARY PROGRAMS 

2.3 EXECUTION TIME 

3.0 STARTING ADDRESS 

CO PROGRAM CONTROL MODES i OPERATOR ACTION 

4.1 PAPER TAPE 

4.2 RKDP DUMP MODE 

4.3 RKDP CHAIN MODE 

4.4 ACT11 

5.0 DRIVE SELECTION 

d.O DRIVE-LESS TEST 

7.0 SWITCH OPTIONS 

8.0 SCOPE LOOPS 

9.0 PROGRAM STRUCTURE 

9.1 SET-UP PHASE 

9.2 DRIVE DEPENDENT CONTROLLER TESTS 
10.0 ERROR REPORTING 

II. 0 ERROR INTERPRETATION 

12.0 HANDLERS AND COMMON ROUTINES 

12.1 TRAP HANDLER 

12.2 SCOPE HANDLER 

12.3 ERROR HANDLER 

12.4 CONTROL RESET ROUTINE 

12.5 CONTROL READY ROUTINE 

12.6 DRIVE RESET ROUTINE 

12.7 TIME DELAY ROUTINE 

12.8 WAIT FOR INTERRUPT ROUTINE 

12.9 OTHER ROUTINES 

TTY HANDLER (I/O). ERROR TYPEOUT ROUTINE 
POWER DOWN/POWER UP ROUTINE 



13.0 
14.0 



UNEXPECTED TIMEOUTS t RK11 INTERRUPTS 
QUICK VERYFVING MODE 
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1.0 ABSTRACT 

THE RK11 LOGIC TESTS CONSIST OF A SERIES OF TESTS 
AIRED AT CHECKING THE BASIC LOGIC OF THE RKII 
CONTROLLER. THIS PROGRAM IS THE SECOND PART OF THE 
TWO-PART RKll LOGIC TESTS. IT SHOULD BE NOTED THAT 
LOGIC TEST I AND LOGIC TEST II TOGETHER CONSTITUTE 
A COMPLETE PROGRAM AND BOTH OF THEM SHOULD BE RUN. 

WHEN USED IN CONJUNCTION WITH A DRIVE IT IS CAPABLE 
OF DETECTING FAULTS IN THE DRIVE ALSO. 

USED CORRECTLY THIS PROGRAM CAN BE AN EFFECTIVE 
ANALYTIC AND DIAGNOSTIC TOOL. 



2.0 REQUIREMENTS 

2.1 EQUIPMENT 

A. PDP11 WITH CONSOLE TELETYPE. 

B. 8K OF MEMORY 

C. RK11 OR RKV11 CONTROLLER 

D. 1-8 RIC05 OR RIC05F DRIVES OR THE RIC05 SIMULATOR 
(DRIVE TYPES MAY BE MIXED) 

2.2 PRELIMINARY PROGRAMS 

RKII BASIC LOGIC TEST i (MD-11-0ZRICJ) 

2.3 EXECUTION TIME 

ERROR FREE FIRST PASS ON P0P11/20 WITH CORE MEMORY 
TAKES APPROXIMATELY TWO MINUTES. CONSIDERABLY LESS 
FOR FASTER MACHINES OR MEMORIES. 



3.0 STARTING ADDRESS 

200 FOR ANY MODE OF OPERATION. NORMAL START UP WITH 
ALL SWITCHES DOWN. 



4.0 PROGRAM CONTROL MODES i OPERATOR ACTION 

PAPER TAPE LOADING 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACT11 



HD-11-CZRKKF 
C2RKKF.P11 



RK11 BASIC LOGIC 
21-FEB-78 08:51 
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SEC 0004 



4.1 PAPER TAPE LOADING 

4.1.1 LOAD PROGRAM INTO MEnORV USING STANDARD PROCEDURE 
FOR .ABS TAPES. 

4.1.2 HAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED 
WITH DISKS AND ARE IN 'RUN'. 'URT ENABLE' THEM. 
CHECK THAT 'URl PROT* LIGHT ON THESE DRIVES IS OFF. 
PUT DRIVES THAT ARE NOT TQ BE TESTED ON 'LOAD'. 

4.1.3 LOAD ADDRESS 200 

4.1.4 SET SWITCHES IF DESIRED (SEE SEC 7.0) IF TESTING ON 
SIMULATOR PUT SW<10> UP. 

PRESS START. 

4.1.5 THE PROGRAM IDENTIFIES ITSELF (NAME .HAINDEC NO). 
THEN THE FOLLOWING QUESTION IS ASKED: 

DRIVES TO BE TESTED? 

THE USER SHOULD TYPE IN THE DRIVE NUMBERS THAT ARE 
IN 'RUN' AND TO BE TESTED. CARRIAGE RETURN SHOULD 
TERMINATE THE STRING. IF AN RK-05F IS TO BE TESTED. 
TYPE THE SUFFIX 'f WITH THE FIRST DRIVE OF THE PAIR. 
FOR EXAMPLE. IF DRIVES 2 AND 5 ARE ON AN RK-05F, TVj-E 
ONLY 2F. 



EXMP: DRIVES TO BE TESTED? 0.1.2<CR> 

THE DRIVES DO NOT HAVE TO BE IN LOGICAL ORDER. 

EXMP: DRIVES TO BE TESTED? 2,4<CR> 

IF ANY ONE DRIVE IS TO BE TESTED. TYPE IN THAT 
NUMBER. IT DOES NOT HAVE TO BE DRIVE 0. 

THUS A NORMAL SEQUENCE WITH DRIVES 0,1 WOULD BE: 

RK11 BASIC LOGIC TEST 2 

HAINDEC-11-C2RKKF 

DRIVES TO BE TESTED? 0.1<CR> 

4.1.6 THERE IS A "RUBOUT" FEATURE WHICH ALLOWS RUBBING OUT 
ANY NUMBER OF CHARACTERS THAT WERE TYPED IN WRONG. 
THE RUBBED 0U1 CHARACTERS ARE ECHOED BACK WITHIN 
SLASHES. 



" U" DELETES THE ENTIRE LINE 
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I 

SEO COOS 



4.1.7 IF REPLY TO ANY OF THE ABOVE QUESTION IS IN A WRONG 
FORMAT (EX: 01 2<CR>; 0,8<CR>; O.A<CR>; M<CR> ETC). IT 
IS AUTOHATICALLY REJECTED. A "??" IS PRINTED OUT; 



THE CORRECT ANSWER CAN NOW BE RETYPED AGAIN. 
4.1.8 THE DRIVE NUMBER BEING TESTED OUT IS PRINTED: 



DRIVE N ;N=0.1 ...7 

IF THE DRIVE IS AN RK-05F. AN F IS APPENDED 



AT THE END OF A PASS THE FOLLOWING TYPE-OUT OCCURS 



END PASS # X 



WHERE X= PASS NUMBER (1.2.3—). CONTROL IS PASSED 
TO THE BEGINNING OF THE PROGRAM AND RE-EXECUTION 
BEGINS. NO QUESTIONS ARE TO BE ANSWERED AGAIN. 



4.1.9 ERROR FREE PASSES OF THE PROGRAM APPEAR AS SHOWN 
BELOW. 



RK11 BASIC LOGIC TEST 2 
MAINDEC-11-CZR)C)CF 
DRIVES TO BE TESTED? 
0.1<CR> 
DRIVE 0 
DRIVE 1 
END PASS f 1 
0 

DRIVE 1 

END PASS » 2 



4.2 RKDP DUMP MODE 

4.2.1 THE PROGRAM IS LOADED INTO THE MEMORY BY THE RKDP 
MONITOR 

4.2.2 START AS NORMALLY USING SA 200 

4.2.3 THE PROGRAM IDENTIFIES ITSELF (NAME .MAINDEC NO.). 
ON FINDING OUT THAT THE LOADING WAS BY RKDP (DUMP 
MODE). THE FOLLOWING MESSAGE APPEARS: 



•TO TEST DRIVE 'N' HALT PROGRAM, REMOVE RKDP PACK AND REPLACE IT 
WITH A WORK PACK. CLEAR LOCATION 40. AND RESTART PROGRAM* 



IF DRIVE 'N' IS TO BE TESTED. THE RKDP PACK ON THAT 
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DRIVE SHOULD BE REPLACED BY ANOTHER PACK, THE DRIVE 
SHOULD BE PUT ON 'URT ENABL' (BECAUSE RKDP WRITE 
PROTECTS THE DRIVE). 

IF DRIVE 'N' IS NOT TO BE CHECKED, THEN THE MESSAGE 
SHOULD BE IGNORED. 

AFTER THIS, THE SEQUENCE OF QUESTIONING IS AS 
EXPLAINED IN SEC 4.1.5. 

4.. 3 RKDP CHAIN MODE 

THE PROGRAM IS CHAIN-LOADED FROM THE RKDP PACK ON 
DRIVE 'N*. AFTER THE PROGRAM IDENTIFIES ITSELF THE 
FOLLOWING PRINTOUT OCCUkS. 

'DRIVE 'N' NOT TESTED' 

THERE IS NO OPERATOR INTERVENTION REQUIRED. THE 
PROGRAM FINDS OUT THE NUMBER OF DRIVES PRESENT. 

4. A ACT11 MODE 

THE PROGRAM IS LOADED BY THE ACT11 MONITOR. ON 
STARTING, IDENTIFIES ITSELF. ASCERTAINS THE NUMBER 
OF DRIVES AND PROCEEDS WITH THE EXECUTION OF THE 
TESTS AS BEFORE. 



5.0 DRIVE SELECTION 

IF ANY PARTICULAR DRIVE IS TO BE SELECTED FOR 
TESTING, PUT THAT DRIVE ON 'RUN', 'WRITE ENABLE': 
PUT REST OF THE DRIVES ON 'LOAD'. 'WRITE LOCK' AND 
IN REPLY TO THE QUES- TIONVES TO BE TESTED?) 
TYPE IN THE DRIVE NUMBER FOLLOWED BY CR. SEE SEC 
4.1.5. 



6.0 DRIVE-LESS TEST 

USE RK11 BASIC LOGIC TEST I, WHICH IS ACTUALLY THE 
FIRST PART OF THE TWO-PART RKll BASIC LOGIC TESTS. 
SEE SEC 1.0, 2.2. 



7.0 SWITCH OPTIONS 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I.E. AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 
'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'. THE PROGRAM WILL 
RECOGNIZE THE 'CONTROL G' WHENEVER THE PROGRAM ENTERS 
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THE SCOPE ROUTINE OR BEGINS A NEU TEST. THE 

'SOFTUARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SUITCH ENTRY ROUTINE: 

'SWR = NNNNNN NEU 

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., 'RU80UT' AND 
'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE' SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
•UP' POSITION. ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
'SOFTWARE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
BE FOLLOWED. 



SW<15>=1 
SW<U>=1 
SW<13>=1 
SW<12>=1 

SW<11>=1 
SW<10>=1 
SW<09>=1 
SW<08>=1 
SW<06>=1 



7.1 SW<15> 

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR. AFTER 
TYPING OUT THE ERROR MESSAGE AND PERTINENT 
INFORMATION. PRESSING "CONTINUE" RESTORES NORMAL 
OPERATION OF THE PROGRAM. 

7.2 SW<U> 

THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEING 
EXECUTED WHEN THE SWITCH IS PUT ON. THIS SWITCH IS 
USED NORMALLY ALONG SW 15. SEE SEC 8.0. 

7.3 SW <13> 

THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 
USED WHEN LOOPING ON TEST (SW U) OR LOOPING ON 
ERROR (SW 9). 

7.4 SW <12> 

THIS SWITCH ALLOWS THE PORGRAM TO CYCLE FROM THE 
POINT OF ERROR TO THE PREVIOUS SCOPE STATEMENT. 
NOTE THAT IN DOING SO ANY INITIALIZATION BEING DONE 
AT THE BEGINING OF THE SUBTEST WILL BE DONE AGAIN 
AND AGAIN. SEE SEC 8.0 FOR DIFFERENT SCOPE LOOPS 



1 

SEO 0007 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR PRINTOUTS 

CYCLE ON ERROR TO THE PREVIOUS 

'SCOPE' STATEMENT 

INHIBIT ITERATIONS 

TESTING ON SIMULATOR 

LOOP ON SPECIFIC ERROR 

LOOP ON TEST AS PER SW<07:00> 

DROP THE DRIVE AFTER MAXIMUM 

ALLOWABLE NUMBER OF ERRORS OCCUR 
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SEO 0008 



AVAILABLE. 

7.5 SU <11> 

EACH SUBTEST WILL BE EXECUTED ONLY ONCE. NORMALLY 
AFTHE FIRST PASS. EACH SUBTEST IS ITERATED A 
NUMBER OF TIMES (USUALLY 50. 5 IN SOME CASES). 
SETTING THIS SWITCH INHIBITS ITERATIONS. SO THAT 
QUICK PASSES CAN BE MADE. 

7.6 SW <I0> 

THIS SWITCH WHEN SET INDICATES THAT TESTING IS BEING 
DONE ON A SIMULATOR. THE SWITCH SHOULD BE PUT UP 
BEFORE START- ING THE PROGRAM. NOTE THAT RK11C IS 
NOT COMPATIBLE WITH THE SIMULATOR. 



7.7 SW <09> 

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE 
LOOP. NOTE THATKE SW12 THE INITIALIZATION OF 
PARAMETERS AT THE BEGINNING OF THE SUBTEST MAY NOT 
BE DONE IN THIS CASE. THIS SWITCH IS HELPFUL WHEN A 
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING 
DIFFERENT PARAMETERS AND YOU WANT TO SCOPE ON THE 
PARAMETER IN ERROR. (EXAMPLE: RKDA IS BEING WRITTEN 
AND READ BACK WITH COUNT PATTERNS FROM 1 TO 177777. 
PATTERN 561 IS GIVING ERROR, YOU MIGHT NOT WANT TO 
GO THROUGH THE 560 PATTERNS BEFORE HITTING ERROR ON 
THE 561TH PATTERN. IN THIS CASE SW 9 WILL GIVE YOU 
A SCOPE LOOP ON THE 561 TH PATTERN ONLY 

7.8 SW <08> 

THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (AS 
PER SW<00-07>} FOR EXECUTION AND SUBSEQUENT LOOPING. 
THUS IF TEST 15 IS TO BE SELECTED THE SWITCH SETTING 
WOULD BE 000415. IT SHOULD BF NOTED THAT BEFORE 
SELECTING TEST 15. ALL THE PREVIOUS TESTS (1-U) 
WILL BE EXECUTED. 

7.9 SW<06> 

THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE FROM 
THE 5ELECTI0N LIST AND TESTING AFTER MAXIMUM 
ALLOWABLE ERROR COUNT (TOTAL NUMBER OF ERRORS) ON 
THAT DRIVE IS EXCEEDED. THE MAXIMUM ALLOWABLE ERROR 
COUNT IS 5, AFTER 5 ERRRORS HAVE OCCURED DRIVE 
IS DROPPED AND A MESSAGE (DRIVE # XXX DROPPED) IS 
PRINTED. 



8.0 



SCOPE LOOPS 
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SEQ 0009 



THERE ARE THREE KINDS OF SCOPE LOOPS AVAILABLE 

1. SWU: LOOPING IS DONE FOR THE ENTIRE SUB-TEST 

2. SU12: LOOPING IS DONE FROM THE POINT OF ERROR 

BACK TO THE PREVIOUS 'SCOPE' STATEMENT. 

3. SU09: PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP 

SEE SEC. 7.7 

EXAMPLE: 
TST1: SCOPE 



INITIALIZATION 
ERROR 'l 

ERROR 2 
ERROR 3 
ERROR 4 

TST2: SCOPE 

THE SEQUENCE OF LOOPING FOR DIFFERENT CASES IS 
EXPLAINED BELOW, NOTE THAT 'TSTT AND •TST2' ARE 
TAGS UHICH DEFINE THE BOUNDARY OF A TEST, (IN THIS 
CASE TEST 1). TEST 1 STARTS AT 'TSTT AND ENDS JUST 
BEFORE 'TST2'. 

IN THE ILLUSTRATION BELOW —> INDICATES THE POINT 
FROM WHERE RETURN IS MADE AND LOOPING IS DONE. 

1. ERROR 2 OCCURS, SU U SET. 

TST1.. ERROR 2. . TST2— >TST1 . .ERROR 2. . TST2— >TST1 . . . 

2. ERROR 2 OCCURS. SW 12 SET. 

TST1 . . .ERROR 2— >TST1 . . .ERR0R2">TST1 . . . 

3. ERROR 2,3; SW U SET. 

TST1.. ERROR 2. .ERROR 3. . TST2">TST1 . .ERROR 2. .ERROR 
3..TST2">TST1... 

A. ERROR 2,3; SW 12 SET. 

TST1... ERROR 2— >TST1 , . .ERROR 2— >TST1 
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NOTE THAT LOOPING IS DONE FROM THE VERY FIRST ERROR 
ENCOUNTERED. THE MORE BASIC AND ERROR THE EARLIER 
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED. 

IN THE ABOVE EXAMPLE NO PART OF THE SUB-TEST IS 
BEING REPEASING DIFFERENT PARAMETERS, HENCE IT 
SO HAPPENS THAT SU 9 AND 12 GIVE THE SAME KIND OF 
LOOPS. THE EXAMPLE BELOW WILL DEMONSTRATE THE 
DIFFERENCE BETWEEN SU 9 AND 12. 

TST1: SCOPE 



IS: 



TST2: 



INITIALIZATION 
ERROR 1 

MOV #1$.$LPERR 

ER 

SCOPE 



•SLPERR' CONTAINS 
THE ADDRESS TO LOOP 
BACK ON ERROR- SW 9 



I 

I N REPETITIONS 
I 



1. SW 12 SET, ERROR 2 OCCURS DURING K.TH 
REPETITIONS 



TST1..1,2...K.ERR0R 2— >TST1 . .1 ,2. . .K.ERROR 2— >TST1. 
2. SW 9 SET. ERROR 2 OCCURS DURING K.TH REPETITION 
1$..K. .ERROR 2~>U..K. .ERROR 2">1$... 



9.0 PROGRAM STRUCTURE 

THERE ARE THREE DISTINCT PARTS OF THE PROGRAM. 
SET-UP PHASE 

DRIVE-DEPENDENT CONTROLLER TESTS 

9.1 SET-UP PHASE 

SETTING UP OF INITIAL POINTERS, VECTORS, TABLES IS 
DONE IN THIS PART. IN THIS SECTION THE DECISION IS 
MADE ABOUT THE PROGRAM MODE-PAPER TAPE, RKDP DUMP, 
CHAIN OR ACT11. IF IN A NON-INTERVENTION MODE 
(CHAIN, ACT11) NUMBER OF DRIVES AND THE TYPE OF 
CONTROLLER IS FOUND OUT. FLAGS ARE SET TO INDICATE 
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SEQ 0011 



WHICH DRIVES ARE TO BE TESTED. ETC. 
DRIVE DEPENDENT CONTROLLER TESTS 

THIS SECTION FORMS A MAJOR PART OF THE PROGRAM 
WHEREIN MOST OF THE CONTROLLER IS CHECKED. 

JUST BEFORE ENTERING THIS SECTION THE PROGRAM FINDS 
OUT WHICH DRIVE IS TO BE CHECKED. IF IN RKDP CHAIN 
MODE, DRIVE 'N' IF PRESENT, IS SKIPPED AND THE NEXT 
AVAILABLE DRIVE IS SELECTED. 

THE DRIVE NUMBER BEING TESTED IS PRINTED OUT: 

DRIVE N ;N=0.1.2...7 

THE TESTING IS DONE IN A LOGICAL HIERCHY, SIMPLER 
THINGS FIRST, THEN MORE COMPLEX AND SO ON. 

IN ONE OF THE TESTS THE ENTIRE DISK PACK IS 
FORMATTED, CHECKS ARE MADE FOR ERROR CONDITIONS. 
THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A 
PSUEDO-HEADER, REFLECTING THE ABSOLUTE ADDRESS OF 
THAT SECTOR (DRIVE #. CYLINDER #. SURFACE #, SECTOR 
#). EXAMPLE: THE PSUEDO-HEADER FOR SECTOR 5. 
SURFACE 0, CYLINDER 20, DRIVE 0 WOULD BE 001005. 

IN THE NEXT TEST THE HEADERS FROM THE ENTIRE PACK 
ARE READ AND CHECKED FOR CORRECTNESS. IN A 
SUBSEQUENT TEST ALL THE PSUEDO-HEADERS ARE READ AND 
VERIFIED. 

ALL THE FUNCTIONS ARE CHECKED OUT. 'SEEK' IS 
CHECKED IN THE THREE DIFFERENT VELOCITY MODES (HIGH, 
MEDIUM, LOW). VARIOUS ERRORS LIKE 'NXD*. 'NXC, 
ETC. ARE SIMULATED AND CHECKED. 

HARDWARE POGIC IS CHECKED USING ALL THE DRIVES 
THAT HAVE BEEN INDICATED. 

AT THE END OF THIS SECTION, A CHECK IS HADE IF ALL 
INDICATED DRIVES HAVE BEEN TESTED. IF NOT, CONTROL 
IS TRANSFERRED TO THE BEGINNING OF THIS SECTION. 

THUS ONE PASS OF THE PROGRAM INVOLVES DOING 



1. SUBTEST #1 ONCE 

2. DRIVE-DEPENDENT TESTS 
DRIVES. 



FOR ALL THE SELECTED 



10.0 ERROR REPORTING 

THE ERROR TABLE STARTING AT SERRTB CONTAINS 

INFORMATION PERTAINING TO EVERY ERROR THAT CAN 

OCCUR. EACH ITEM IN THE TABLE CONSISTS OF FOUR 
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SEQ 0C12 



ENTRIES. 

A. EH - THIS IS A POINTER TO THE ERROR MESSAGE TO 

BE TYPED OUT WHEN THE ERROR OCCURS. 

B. DH - THIS IS A POINTER TO THE DATA HEADER TO BE 

TYPED OUT. 

C. OT - THIS IS A POINTER TO THE DATA WHICH IS TO 

BE TYPED TYPED OUT UNDER THE HEADERS. 

D. 0 - THIS IS A TERMINATOR SIGNIFYING THE END OF 
THE ITEM. 

THE ERROR CALL IS AN EHi INSTRUCTION WITH ITS LOVER 
BYTE ENCODED TO INDICATE THE ERROR NUHBER. THUS 
OR 1" WOULD BE (EHTtl) IE 10A001. 

EVERY ERROR CORRESPONDS TO AN ITEM IN THE ERROR 
TABLE. THUS "ERROR U" WOULD CORRESPOND TO ITEM U. 
AS FAR AS POSSIBLE. THE ERROR MESSAGES HAVE BEEN 
KEPT SHORT, BUT CLARITY IS NOT SACRIFICED FOR 
BREVITY. INSPITE OF THIS, IF THE USER FINDS A NEED, 
HE CAN LOOK UP THE ENTIRE ERROR MESSAGE IN THE ERROR 
ITEMS TABLE FOUND IN THE BEGINNING OF THE LISTINGS. 
THUS FOR "ERROR U". "ITEM U" IN THE ITEM TABLE CAN 
BE LOOKED UP. WHEN THE ERROR INSTRUCTION IS 
EXECUTED A TRAP OCCURS TO THE ERROR HA LOCATED 
AT SERROR WHICH PROCESSES THE ERROR CALL. SEE SEC 
12.3 



11.0 ERROR INTERPRETATION 

WHENEVER AN ERROR MESSAGE IS PRINTED OUT. ALL 
REGISTERS AND OTHER DATA PERTAINING TO THE ERROR ARE 
ALSO GIVEN. RKDS, RKER...RKBA INDICATE THE CONTENTS 
OF THE CORRESPONDING REGISTERS AT THE TIME OF ERROR. 

EVERY ERROR MESSAGE CONTAINS A PC. THIS PC 
INDICATES THE POSITION IN PROGRAM WHERE THE ERROR 
CALL IS LOCATED. THE ERROR MESSAGE, BECAUSE OF 
PRACTICAL CONSIDERATIONS IS HADE SHORT AND 
MEANINGFUL. THE USER IS ADVTO LOOK UP THE PC 
IN THE PROGRAM LISTING, WHERE HE WILL FIND nORE 
INFORMATION ABOUT THE ERROR. IN MANY INSTANCES, A 
SINGLE FAULT WILL GIVE RISE TO MORE THAN ONE ERROR 
REPORT. A LITTLE DELIBERATION AND CAREFUL 
EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY 
HELPFUL IN PINPOINTING THE FAULT. A BRIEF 
EXPLANATION OF WHAT IS BEING CHECKED IN THE SUBTEST 
IS GIVEN AT THE BEGINNING df EVERY SUBTEST. ALL THE 
NUMBERS GIVEN WITH ERROR MESSAGES ARE IN OCTAL. 



12.0 HANDLERS AND COMMON ROUTINES 
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THE COnnOSED ROUTINES USED IN THE PROGRAM ARE 
CALLED IN TWO MYS. 

A. AS A SUBROUTINE THROUGH 'JSR' CALL 

B. THROUGH A 'TRAP' HANDLER 

12.1 TRAP HANDLER 

MANY COMMONLY USED ROUTINES IN THE PROGRAM ARE 
CALLED USING THE TRAP INSTRUCTION AND THE 'TRAP' 
HANDLER. THE LOWER BYTE OF THE TRAP INSTRUCTION IS 
ENCODED DIFFERENTLY FOR DIFFERENCT ROUTINES. THE 
TRAP HANDLER IS LOCATED AT 'STRAP'. WHEN A CALL FOR 
A ROUTINE IS EXE^'UTED. A TRAP OCCURS TO THE HANDLER 
ARAP*. THE HANDL6R PICKS UP THE LOWER BYTE OF 
THE "CALL INSTRUCTION" AND USES IT TO FORM THE 
STARTING ADDRESS OF THE ROUTINE TO GO TO FOR 
SERVICE. 



12.2 SCOPE HANDLER 

THE 'lOT' TRAP IS USED BY THE 'SCOPE' STATEMENT. 
WHEN "SCOPE* IS EXECUTED, AN lOT TRAP OCCURS TO 
MEMORY LOCATION 'tSCOPE'. THE SCOPE HANDLER STARTS 
AT SSCOPE. DEPENDING ON THE SWITCH SETTINGS THE 
HANDLER DECIDES TO LOOP ON TEXT, INHIBIT ITERATIONS 
ETC. THERE ARE CERTAIN POINTERS AND FLAGS WHICH ARE 
ADJUSTED. THUS, IT IS NOT ADVISABLE START THE 
PROGRAM AT ANY GIVEN LOCATION SINCE THE VARIOUS 
POINTERS AND FLAGS MAY NOT BE CORRECTLY ADJUSTED. 

12.3 ERROR HANDLER 

AN EMT TRAP INSTRUCTION IS USED BY THE ERROR CALL. 
THE LOWER BYTE IS ENCODED TO GIVE DIFFERENT ERROR 
CALLS. (EX: ERROR 1 = 104000*1; ERROR 16 = 
104000*16). WHEN THE ERROR STATEMENT IS EXECUTED, A 
TRAP OCCURS TO MEMORY LOCATION '$ERROR'. THE ERROR 
HANDLER IS LOCATED AT 'SERROR'. THE HANDLER FORMS 
THE POINTER TO ERROR TABLE, WHICH IS USED IF AN 
ERROR MESSAGE IS TO BE TYPED OUEPENDING ON THE 
SWITCH SETTINGS, A DECISION ABOUT HALTING ON ERROR, 
INHIBITING TYPEOUT, LOOPING ON ERROR ETC. IS MADE. 
IF AN ERROR MESSAGE IS TO BE TYPED OUT AN EXIT IS 
MADE TO THE ERROR MESSAGE TYPEOUT ROUTINE LOCATED AT 
'$ERRTYP'. 



12.4 CONTROL RESET ROUTINE 

THE CALL FOR THIS ROUTINE IS "CNT. RESET" AND IS AN 
ENCODED 'TRAP' INSTRUCTION. WHEN "CNT. RESET" IS 
EXECUTED THE CONTROL RESET ROUTINE STARTING /^T 



B 2 

HD-11-CZRlcicf . RK11 BASIC LOGIC TEST 2 RACYll 50A(1052) 21-FEB-78 08:58 PAGE '5 
CZRKKF.PII 21-FEB-78 08:51 



SEO OOU 



■'CN.RST" IS ENTERED. A CONTROL RESET IS ISSUED 
THE PROGRAM WAITS TILL THE CONTROL READY SETS. ON 
WHICH THE ROUTINE IS EXITED. IF CONTROL READY DOES 
NOT SET WITHIN A CERTAIN TINE AN ERROR IS REPORTED. 
THE PC TYPED OUT IS THE LOCATION WHERE THE 
"CNT. RESET" CALL IS LOCATED. THE WAITING TIME IS 
2.8 MS FOR 11/20 AND 560 US FOR 11/45 WITH BIPOLAR 
MEMORY. 

12.5 CONTROL READY ROUTINE 

THIS ROUTINE IS CALLED BY "CNT.RDY" (AN ENCODED 
'TRAP' INSTRUCTION) AND IS LOCATED AT "CN.RDY". THE 
ROUTINE WAITS FOR THE CONTROL READY TO SET AND WHEN 
IT DOES. EXITS IF CONTROL READY DOES NOT SET 
WITHIN A SPECIFIED TIME AN ERROR MESSAGE IS GIVEN 

CNTRL RDY DIDN'T SET 

PC = XXXXXX RKCS = fYYYYY 

THE PC IS THE LOCATION AT WHICH THE "CNT.RDY" CALL 
IS LOCATED. THE WAITING TIME IS 949 MS FOR 11/20 
AND 189 MS FOR 11/45 WITH BIPOLAR MEMORY. 



12.6 DRIVE RESET ROUTINE 

THE DRIVE - RESET ROUTINE IS LOCATED AT "DRESET" AND 
IS CALLED BY A "JSR". IT ISSUES A DRIVE RESET AND 
WAITS FOR THE R/W/S RDY TO SET. ON WHICH THE ROUTINE 
IS EXITED. THE WAITING TIME IS 4959 MS FOR 11/20 
AND 991 MS FOR 11/45 WITH BIPOLAR MEMORY. 

12.7 TIME DELAY ROUTINE 

THIS ROUTINE PROVIDES A VARIABLE TIME DELAY. THE 
CALL IS DELAY .N WHERE N=1 TO 177777 (OCTAL) TIME 
DELAY PRC/IDED= 7.5 TIMES( X ) N MICRO SECS FOR 
11/20. 1.5N US FOR 11/45 (N CONVERTED TO DECIMAL 
BEFORE COMPUTING DELAY) IF THE USER WANTS TO CHANGE 
THE DELAY AT ANY POINT IT CAN BE DONE BY SIMPLY 
CHANGING VARIABLE 'N*. 



12.8 WAIT FOR INTERRUPT ROUTINE 

THIS POUTINE PROVIDES A VARIABLE TIME LIMIT DURING 
WHICH RK11 INTERRUPT HAY OCCUR. THE IS 

WAT. INT .N N=1 TO 1777777 (OCTAL) 

WAITING TIME=7.5 TIMES( X ) N US FOR 11/20. 1.5N US 



FOR 11/45 UPON ENTERING THE ROUTINE CPU PRIORITY IS 
DROPPED SO THAT RK11 CAN INTERRUPT. 
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12.9 OTHER ROUTINES 

THERE ARE OTHER COmONLY USED ROUTINES AS LISTED 
BELOW. 

STYPE: 

TYPE ROUTINE FOR TYPING OUT ASCII STRINGS. 
LOCATED AT "STYPE" 
CALLED BY "TYPE" 

$TYPOC: 

ROUTINE FOR TYPING OUT OCTAL NUMBERS. 
LOCATED AT ■■$-YPOC" 
CALLED BY "TYPOC" 

ITYPDS: 

ROUTINE FOR TYPING OUT DECIMAL NUMBERS. 
LOCATED AT "ITYPDS" 
CALLED BY "TYPDS" 



SRDLIN: 

ROUTINE FOR INPUTTING ASCII STRINGS FROM TTY. 
LOCATED AT "SRDLIN" 
CALLED BY "RDLIN" 

SERRTYP: 

ROUTINE FOR TYPING OUT ERROR MESSAGES. 
LOCATED AT $ERRTYP 
CALLED BY "JSR SERRTYP" 

SPWRDN: 

ROUTINE FOR HANDLING POWER FAILURE. 
LOCATED AT SPWRDN 

CALLED WHEN THERE IS A POWER FAILURE. 
SPWRUP: 

ROUTINE FOR HANDLING POWER UP AFTER A POWER FAIL. 
LOCATESPWRUP 

CALLED WHEN POWER RETURNS AFTER HAVING GONE DOWN. 



13.0 UNEXPECTED TIMEOUTS AND RKll INTERRUPTS 

WHE?.' AN UNEXPECTED TIMEOUT OCCURS. THE PC AT WHICH 
TIME OUT OCCURED IS TYPED OUT AND THE PROGRAM HALTS. 
IF IT IS INTACT. IT CAN BE RESTARTED BY PRESSING 
CONTINUE. 

IF AN UNEXPECTED RKll INTERRUPT OCCURS THE PROGRAM 
TYPES OUT THE PC AT WHICH THE INTERRUPT CAME IN AND 
THEN HALTS. PRESSING CONTINUE WOULD RESTART THE 
PROGRAM FROM BEGINING. SW 9- LOOPING CAITY IS 
PROVIDED AS A TROUBLE SHOOTING AID. 
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QUICK VERIFYING MODE 



THE FIRST PASS OF THE PROGRAM IS A QUICK VERIFYING 
MODE. ALL THE TESTS ARE DONE ONLY ONCE, ON 
SUBSEQUENT PASSES THE TESTS ARE ITERATED (NORMALLY 
50 TIMES. 5 IN SOME CASES). THUS THE FIRST PASS 
TAKES A SHORTER TIME TO COMPLETE, WHEREAS SUBSEQUENT 
PASSES TAKE MORE TIME. 



852 

853 

85A 

855 

856 

857 

858 

859 

860 

861 

862 

863 

86^ 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 



TITLE MD-11-CZRKKF. RK11 BASIC LOGIC TEST 2 
COPYRIGHT (C) 1974.1977 
DIGITAL EQUIPMENT CORP. 
MAYNARD. MASS. 01754 

PROGRAM BY JIN KAPADIA 

THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC-C3). JAN 19. 1977. 

PROGRAM REVISED BY TOM SAWYER. MARCH. 1976 
REVISED BY CHUCK HESS. AUGUST. 1976 
SBTTL OPERATIONAL SWITCH SETTINGS 



SWITCH 

15 
14 
13 
12 
11 
10 

9 

8 

6 



USE 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

CYCLE ON ERROR TO PREVIOUS 'SCOPE' STATEMENT 

INHIBIT ITERATIONS 

TESTING ON SIMULATOR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7:0> 

DROP THE DRIVE IF MORE THAN 5 ERRORS 



;YOU ARE ADVISED TO READ THE DOCUMENT BEFORE USING THIS PROGRAM. 
.-ON GETTING AN ERROR REFER TO THE LISTINGS AT THE PC POINTED 
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CZRKKF .Pn 


21-FEB-78 08:51 


OPERATIONAL SWITCH SETTINGS 


SEQ 0017 






:0UT IN 


THE ERROR MESSAGE. 


ADJACENT ERROR MESSAGES IF FOLLOWED 




oVd 




.•CAREFULLY COULD LEAD TO 


AN EASY PINPOINTING OF THE FAULT 




OtO 














OVf 














BOfi 




.SBTTL 


BASIC DEFINITIONS 
























.-•INITIAL ADDRESS OF THE 


STACK POINTER •*• 1100 ••• 




90 1 


A A 1 1 AA 

oonoo 


STACIC= 


1100 








OAO 




.EQUIV 


ENT. ERROR 


.-BASIC DEFINITION OF ERROR CALL 




V03 




.EQUIV 


lOT, SCOPE :;BASIC DEFINITION OF SCOPE CALL 




OA/ 














OAC 




.-•MISCELLANEOUS DEFINITIONS 




OAX 

▼06 


AAAA1 1 
0000 1 1 


HT = 


11 




CODE FOR HORIZONTAL TAB 




OA 7 


AAAA1 ^ 
0000 1 d 


LF = 


12 




CODE FOR LINE FEED 




AAO 


AAAA1 ^ 
0000 1 5 


CR= 


15 




CODE FOR CARRIAGE RETURN 






AAA5AA 

UOOcOO 


CRLF = 


200 




CODE FOR CARRIAGE RETURN-LINE FEED 




Q 1 A 

VI u 


1 7 77 7*. 


PS= 


177776 




PROCESSOR STATUS WORD 




01 i 

VI 1 




.EQUIV 


PS.PSW 








VI ^ 


1 7777A 


STKLMT= 


177774 




STACK LIMIT REGISTER 




V I 5 


1 77773 

\ f f f I C 


PIRQ= 


177772 




PROGRAM INTERRUPT REQUEST REGISTER 




9U 


177570 


DSUR= 


177570 




HARDWARE SWITCH REGISTER 




915 

Ql A 


177570 


DDISP= 


177570 




HARDWARE DISPLAY REGISTER 




VI 0 

Q1 7 
V 1 f 




.-•GENERAL PURPOSE REGISTER DEFINITIONS 




Oi B 

VI 8 


AAAAAA 
000000 


R0= 


XO 




GENERAL REGISTER 




VI V 


AAAAA 1 
000001 


R1 = 


XI 




GENERAL REGISTER 




OOA 

VdO 


AAAAAO 
00000^ 


R2= 


X2 




■GENERAL REGISTER 




V^ 1 


AAAAAT 
000003 


R3= 


X3 




GENERAL REGISTER 




V^£ 


AAAAA/ 

UOOOOm 


R4= 


X4 




GENERAL REGISTER 






AAAAAA 

UOOOO J 


R5= 


X5 




-GENERAL REGISTER 




OIL 


AAAAAi 

000006 


R6= 


X6 




•GENERAL REGISTER 




V<:3 


AAAAA7 

00000 1 


R7= 


17 




-GENERAL REGISTER 




Vi6 


AAAAA* 

ouuuuo 


SP= 


X6 




;STACK POINTER 




Vif 


AAAAA7 


PC = 


X7 




; PROGRAM COUNTER 




V£8 














V^V 




.-•PRIORITY LEVEL DEFINITIONS 




V3U 


AAAAAA 

ooouuo 


PRO= 


0 




iPRIORITY LEVEL 0 




V3 1 


AAAAAA 

0000*iO 


PR1 = 


40 




;PRIORITY LEVEL 1 




V5i 


AAA1 AA 
000 1 00 


PR2= 


100 




iPRIORITY LEVEL 2 




V33 


AAA1 AA 
000 1 ••0 


PR3= 


140 




IPRIORITY LEVEL 3 




V3*» 


AAAOAA 

OOOcOO 


PR4= 


200 




;PRIORITY LEVEL 4 




QIC 

V3 J 


AAAO/ A 

OOOc^O 


PR5= 


240 




IPRIORITY LEVEL 5 




V36 


AAA7AA 
U0030U 


PR6= 


300 




;PRIORITV LEVEL 6 




Vjf 


AAATArt 
O'JO J*lU 


PR 7= 


340 




;PRIORITY LEVEL 7 




QTB 

V38 














QXQ 
V J7 




.-•"SWITCH REGISTER" SWITCH DEFINITIONS 




V*tU 


1 ooouo 


SW15= 


100000 








QL 1 
V*t 1 




SWU = 


40000 








V^w 


AAAAAA 

OcOOOO 


SW13= 


20000 








OAT 
V«f J 


A1 rtrtrtrt 


SW12= 


10000 








7"»«l 




SW11 = 


4000 








V* J 


nnonnn 


SW10= 


2000 








V*0 


AA1 AAA 

OU 1 uuu 


SW09= 


1000 








OA? 
Vh f 


(\(\riL(\(\ 

UUU*tUU 


SW08= 


400 








9A8 


000200 


SW07= 


200 








949 


000100 


SW06= 


100 
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950 000040 SU05= 40 

951 000020 SU04- 20 

952 000010 SU03= 10 

953 000004 SW02= 4 

954 000002 SW01= 2 

955 000001 SWOO= 1 

956 .EOUIV SU09.SU9 

957 .EOUIV SU08,SU8 

958 .EOUIV SW07.SW7 

959 .EOUIV SW06,SU6 

960 .EOUIV SU0S,SU5 

961 .EOUIV SU04,SU4 

962 .EOUIV SW03,SW3 

963 .EOUIV SW02,SU2 

964 .FOUIV SU01,3U1 

965 .EOUIV SWOO.SWO 
966 

967 ;*OATA BIT DEFINITIONS (BITOO TO BIT15) 

968 100000 BIT15= 100000 

969 040000 BIT14= 40000 

970 020000 Bin 3= 20000 

971 010000 BIT12= 10000 

972 004000 BIT11= 4000 

973 002000 BIT10= 2000 

974 001000 BIT09= 1000 

975 000400 BIT08= 400 

976 000200 BIT07= 200 

977 000100 BIT06= 100 

978 000040 BIT05= 40 

979 000020 BIT04= 20 

980 0C0010 BIT03= 10 

981 000004 BIT02= 4 

982 000002 BIT01= 2 

983 00C001 BITOO= 1 

984 .EOUIV BIT09,BIT9 

985 .EOUIV BIT08,BIT8 

986 .EOUIV BIT07,BIT7 

987 .EOUIV BIT06.BIT6 

988 .EOUIV BIT05.BIT5 

989 .EOUIV BIT04.BIT4 

990 .EOUIV BIT03,BIT3 

991 .EOUIV BIT02,BIT2 

992 .EOUIV BITOI.BITI 

993 .EOUIV BITOO, BITO 
994 

995 ; •BASIC "CPU" TRAP VECTOR ADDRESSES 

996 000004 ERRVEC= 4 ;;TIHE OUT AND OTHER ERRORS 

997 000010 RESVEC= 10 ;:RESERVED AND ILLEGAL INSTRUCTIONS 

998 000014 TBITVEC=14 ;;"T"BIT 

999 000014 TRTVEC= 14 ;;TRACE TRAP 

1000 000014 BPTVEC= U ; .-BREAKPOINT TRAP (BPT) 

1001 000020 I0TVEC= 20 ;; INPUT/OUTPUT TRAP (lOT) ••SCOPE** 

1002 000024 PURVEC= 24 ;: POWER FAIL 

1003 000030 cHTVEC= 30 ;;EHULATOR TRAP (EHT) ••ERRORS* 

1004 000034 TRAPVEC=34 ;;"TRAP" TRAP 

1005 000060 TKVEC= 60 :;TTY KEYBOARD VECTOR 
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SEQ 0019 



1006 




000064 


TPVEC= 64 ;;TTY PRINTER VECTOR 


1007 




000240 


PIRQVEC=240 ;:PR0GRAM INTERRUPT REQUEST VECTOR 


1008 






.SBTTL TRAP CATCHER 


1009 








1010 




000000 


.=0 


1011 






.•♦ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2. HALT" 


1012 






.'♦SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 


1013 






: •LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


10K 




000174 


. = 174 


1015 


0001 74 


000000 


DISPREG: .WORD 0 ;;SOFT«ARE DISPLAY REGISTER 


1016 


000176 


000000 


SUREG: .WORD 0 ::SOFTyARE SWITCH REGISTER 


1017 






.SBTTL STARTING ADDRESS(ES) 


1018 


000200 


000137 002636 


JMP a#START ::JUMP TO STARTING ADDRESS OF PROGRAM 


1019 






•SBTTL ACT11 HOOKS 


1020 








1021 






• • 


1022 






.-HOOKS REQUIRED BY ACT11 


1023 




000204 


$SVPC = . .-SAVE PC 


1024 




000046 


.=46 


1025 


000046 


020740 


SENDAD ::1)SET L0C.46 70 ADDRESS OF SENDAD 


1026 




000052 


.=52 


1027 


000052 


000000 


•WORD 0 ;;2)SET L0C.52 TO ZERO 


1028 




000204 


.=$SVPC ;; RESTORE PC 
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1029 






.SBTTL 


comoN 


TAGS 




1030 
















1031 
















1032 






;»THIS 


TABLE CONTAINS VARIOUS COHMON STORAGE LOCATIONS 


1033 






.-•USED 


IN THE PROGRAM. 




103A 
















1035 




001100 






.=1100 






1036 


001100 




tCMTAG 






.START OF COMMON TAGS 


1037 


001100 


000000 


SPASS 




.WORD 


0 


: CONTAINS PASS COUNT 


1038 


001102 


000 


STSTNH 


.BYTE 


0 


: CONTAINS THE TEST NUMBER 


1039 


001103 


000 


SERFLG 


• BYTE 


0 


; CONTAINS ERROR FLAG 


1040 


001104 


000000 


tICNT 




.WORD 


0 


: CONTAINS SUBTEST ITERATION COUNT 


1041 


001106 


000000 


SLPADR 


.UORD 


0 


.CONTAINS SCOPE LOOP ADDRESS 


1042 


001110 


000000 


SLPERR 


.WORD 


0 


; CONTAINS SCOPE RETURN FOR ERRORS 


1043 


001112 


000000 


SERTTL 


.yORD 


0 


;CONTAINS TOTAL ERRORS DETECTED 


1044 


001114 


000 


SITEHB 


.BYTE 


0 


.•CONTAINS ITEM CONTROL BYTE 


1045 


001 1 1 5 


001 


SERMAX 


.BYTE 


1 


.•CONTAINS MAX. ERRORS PER TEST 


1046 


001116 


000000 


SERRPC 


.yORD 


0 


: CONTAINS PC OF LAST ERROR INSTRUCTION 


1047 


001120 


000000 


SGDADR 


.yORD 


0 


.•CONTAINS ADDRESS OF 'GOOD' DATA 


1048 


001122 


000000 


SBDADR 


.WORD 


0 


.-CONTAINS ADDRESS OF 'BAD' DATA 


1049 


001124 


000000 


SGDDAT 


.WORD 


0 


: CONTAINS 'GOOD' DATA 


1050 


001126 


000000 


SBDDAT 


.yORD 


0 


.•CONTAINS 'BAD' DATA 


1051 


001 1 30 


000000 






.yORD 


0 


.•RESERVED— NOT TO BE USED 


1052 


001 1 32 


000000 






.yORD 


0 




1053 


001134 


000 


SAUTOB 


.BYTE 


0 


AUTOMATIC MODE INDICATOR 


1054 


001135 


000 


SINTAG 


.BYTE 


0 


INTERRUPT MODE INDICATOR 


1055 


001136 


000000 






.yORD 


0 




1056 


001140 


177570 


SUR: 




.WORD 


DSyR 


-.'ADDRESS OF SUITCH REGISTER 


1057 


001142 


177570 


DISPLAr: .WORD 


DDISP 


-.ADDRESS OF DISPLAY REGISTER 


1058 


001144 


177560 


STKS: 




177560 




-;TTY KBD STATUS 


1059 


001146 


177562 


STKB: 




177562 




-;TTY KBD BUFFER 


1060 


001150 


177564 


$TPS: 




177564 




;;TTY PRINTER STATUS REG. ADDRESS 


1061 


001152 


177566 


STPB: 




177566 




;;TTY PRINTER BUFFER REG. ADDRESS 


1062 


001154 


000 


SNULL 




• BYTE 


0 


;;CONTAINS NULL CHARACTER FOR FILLS 


1063 


001155 


002 


SFILLS 


.BYTE 


2 


;:CONTAINS » OF FILLER CHARACTERS REQUIRED 


1064 


001156 


012 


SFILLC 


■ .BYTE 


12 


;: INSERT FILL CHARS. AFTER A "LINE FEED" 


1065 


001157 


000 


STPFLG 


• .BYTE 


0 


;:"TERNINAL AVAILABLE" FLAG (BIT<07>=0=YES) 


1066 


001160 


000000 


SREGAD 


.WORD 


0 


•; CONTAINS THE ADDRESS FROM 


1067 














;;yHICH (SREGO) yAS OBTAINED 


1068 


001162 


000000 


SREGO 




.yORD 


0 


-: CONTAINS (($REGAD}^0} 


1069 


001164 


000000 


SREG1 




.yORD 


0 


;;CONTAINS (($REGAD}^2} 


1070 


001166 


000000 


SREG2 




.yORD 


0 


;;CONTAINS (($REGAD}^4} 


1071 


001 1 70 


000000 


SREG3 




.yORD 


0 


;;CONTAINS (($REGAD)^6} 


1072 


001172 


000000 


SREG4 




.yORD 


0 


;;CONTAINS ( ($REGAD}-^10) 


1073 


001 1 74 


000000 


SREG5 




.yORD 


0 


-•CONTAINS ( (SREGAD) '»! 2) 


1074 


001 1 76 


000000 


SREG6 




.WORD 


0 


;:CONTAINS ( ($REGAD)*14) 


1075 


001200 


000000 


SREG7 




.yORD 


0 


•;CONTAINS ( (SREGAD) +16) 


1076 


001202 


000000 


SREG10 


.yORD 


0 


■;CONTAINS ( (SREGAD) ^20) 


1077 


001204 


000000 

wW W WW 


SREG11 


.yoRO 


0 


-;CONTAINS ( (SREGAD) ^22) 


1078 


001206 


000000 


STIHES 


0 




-;MAX. NUMBER OF ITERATIONS 


1079 


001210 


000000 


$ESCAPE:0 




-.ESCAPE ON ERROR ADDRESS 


1080 


001212 


077 


SQUES 




.ASCII 


111 


-:QUESTION MARK 


1081 


001213 


015 


SCRLF 




.ASCII 


<15> 


■: CARRIAGE RETURN 


1082 
1083 


001214 


000012 


$LF: 




.ASCIZ 


<12> 


-.-LINE FEED 


1084 


001216 


005015 051104 


053111 nSGI: 




.ASCIZ 


<15><12>/0RIVE PRESNT/ 
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1085 


001224 


020105 


1086 


001232 


052116 


1087 




001236 


1088 


001236 


005015 


1089 


001244 


000 


1090 






1091 


001245 


015 


1092 


001252 


051040 


1093 


001260 


042111 


1094 


001266 


042523 


1095 






1096 


001272 


005015 


1097 


001 300 


020105 


1098 






1099 


001505 


015 


1100 


001310 


042040 


1101 






1102 


001315 


040 


1103 


001322 


006504 


1104 






1105 






1106 






1107 






1108 






1109 






1110 






1111 






1112 


001?"!6 


177400 


1113 


001330 


177402 


1114 


001332 


177404 


1115 


001334 


177406 


1116 


001336 


177410 


1117 


001340 


177412 


1118 


001342 


177416 


1119 






1120 






1121 






1122 






1123 






1124 






1125 


001344 


000000 


1126 


001346 


000000 


1127 


001350 


000000 


1128 


001352 


000000 


1129 






1130 






1131 


001354 


000000 


1132 






1133 


001356 


000000 


1134 


001360 


000000 


1135 


001362 


000000 


1136 


001 364 


000000 


1137 


001366 


000000 


1138 


001370 


000000 


1139 






1140 







051120 
000 

047516 



041412 
054504 
023516 
000124 

051104 
000 

040412 
055122 

051104 
000012 



051505 
042516 



052116 
042040 
020124 



046114 
125 
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.EVEN 

HSG2: .ASCIZ <15><12>/N0NE/ 



SEQ 0021 



«SG3: 



053111 nSG4; 



nSG5; 



.ASCIZ <15><12>/CNT RDY DIDN'T SET/ 



.ASCIZ <15><12>/DRIVE / 



.ASCII <15><12>/ALL DRVS/ 



050117 nSG6: 



.ASCIZ / 0ROPD/<15><12> 
.EVEN 



;RK11 REGISTERS 

;IF FOR ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM THESE 
.■(GIVEN BELOU), THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD BE 
.■MODIFIED SO THAT THE CORRECT ADDRESS IS USED. 





.EVEN 


RKDS 


177400 


RKER 


177402 


RKCS 


177404 


RKUC 


177406 


RICBA 


177410 


RKDA 


177412 


RKDB 


177416 



;TAGS AND GENERAL DATA AREA 



SIMUL: 0 

FTITLE: 0 

DRIVAD: 0 

DRVDON: 0 



DRVPTR: 0 



INDXl 

INDX2 

COUNT 

COUNTl 

TIMER: 

EFLG1: 



0 
0 
0 
0 
0 
0 



FLAG TO BE SET TO 1 WHEN ON SIMULATOR 
FLAG FOR PRINTING PROGRAM TITLE 
CONTAINS ADDRESS OF THE DRIVE UNDER TEST 
CONTAINS THE NUMBER OF DRIVES CHECKED. 
IT IS INCREMENTED EACH TIME THE TESTS FOR 
A DRIVE IS COMPLETED. 

CONTAINS THE POINTER TO THE DRIVE FLAG (DRIVEO 
-DRIVE7) OF THE DRIVE TO BE CHECKED NEXT. 
GENERAL INDEX FOR KEEPING COUNT 

GENERAL INDEX 
GENERAL COUNT REGISTER 

COUNT REGISTER USED FOR 'DRESET' SUBROUTINE 
TIMER REGISTER 

SET, TO INDICATE A PARTICULAR 
ERROR CONDITION 



HO-11- 


CZRKKF . 


RKII BASIC LOGIC TEST 2 


MACni 30A(1052) 


21- 


FEB- 


J 2 

-78 08:58 PAGE 23 




CZRKKF 


.P11 


21-FEB-78 08:51 


COmON TAGS 










SEQ 0022 


1 1 / i 




AAAi AA 

000100 


r f C V A 

SEcKO 


i AA 
100 








CONTAINS ADDRESS OF irLINDcR c 




1 1 «ii 


AA i 7 7/ 


AAi AAA 

001000 


SEEKl 


i AAA 

1000 








CONTAINS ADDRESS Or CYLINDER c\j 




11/1 


AAi 17^ 

001 3f 6 


Ai y C A A 

014500 


r f C V 1 

SEEK2 


1 / C AA 

14500 








CONTAINS ADDRESS OP CtLINDEN 31c 






AA1 / A A 

001 hOO 


AAAOAA 

000200 


RKPRI 


OAA 
£00 








rA&lTAffUC TLiC rDll 1 ClfCl AT LILl f r LI 

CUNIAINS THE CPU LEVEL AT WHICH 




1 1 / C 

1 1 H J 
















DVii UAfkMAl 1 W fUTCDDllDTC TLl f C LlADf\ 

RKl 1 NORHALLY INTERRUPTS. THI S WORD 




1 1 / 
















SHOULD DC CHANGcD IF RKll IS DcSINOATED 




11/7 

1 1*1 / 
















A BR LcvcL OTHcK THAN 5. c.b. IF IT IS CHANGED 




1 1 / fi 
1 1 HO 
















TA ^ TUtC UAbn CLlAIII n DC ruAkl^m TA O/ A 

TO 0, THId WORD SHOULD Be CHANGED TO ^40. 




1 1 / O 


AAi y AO 

001 hO<: 


AAAO OA 

000ci:0 


RKVEC 


220 








CONTAINS IHc NORnAL VECTOR ADDRESS TO WHICH 




1 1 CA 
















QVll fUTCDAIIOTC fC TIJ f C fC UAT CA ruAurc 

RKIl INTERRUPTS. IF THIS IS NOT SO, CHANGE 




I 1 C 1 

I I 31 
















THIS WORD TO CONTAIN HODIFIcD VCCTOR ADDRESS. 




1 1 C 3 

1 i5c 


AAi / A/ 

001 hOh 


AAAAAA 

000000 


FFLAG 


0 












1 1 C T 

1153 


AAI / A^ 

001 hOo 


AAAAAA 

000000 


ODDEVN: 0 








'USED TO DETERnlNE UHICH Or RK*03F DRIVES ACTIVE 




lie/ 
















0 if EVEN DRIVE 




1 1 cc 
















■ — i tc Ann nb t t/c 
'-1 IF ODD DRIVE 




1 1 Cil 
M 50 


AAI / 1 A 


AAAAAA 

000000 


DDPCH 


0 








■ f c DOA^o A n 1 A 4 nc n c dam AC r au t a f kic 
'Ir PROuRAH LOADED FROn RKOj/ CONTAINS 




1 1 C7 

1 1 5f 
















; ADDRESS OF DRIVE WI TH RKDP PACK 




1 1 c o 

11 58 


AAI / 1 O 

001s12 


AAAAAA 

000000 


DRIVS 


0 








'CONTAINS THE NUnBER OF DRIVES PRESENT 




1 1 CO 

1 1 5t 




















1 1 

MOO 




















11^1 

1 1 01 




















1 1 il? 
M OC 




















1 1 i^T 
1 103 






.-THE FLAGS BELOW 


(BIT 


A ^ 
0) 


AAC CC T TA 1 TA tkl^trATC TLIAT A DA&Ttrill AD l\Df*fC 

ARE SET TO i TO INDICATE THAT A PARTICULAR DRIvE 




1 1 ^/ 
1 iOh 






;IS PRESENT AND 


IS TO 


BE 


TESTED. BIT 12, IF SET. INDICATES THAT THE DRIVE 




I 105 






:yAS DROPPED 


AFTER NAXINUN ALLOWABLE NUHBER OF ERRORS OCCURED ON THAT 




1 100 






;DRIVE (SU 6 


SET). 








11^7 

1 1 or 






:IF MORE THAN 


5 


ERRORS OCCUR IN THE HARDWARE POLLING TEST (LAST) 




1 i 

1 lOo 






: THEN 


ALL DRIVES 


ARE 


DROPPED. BUT BIT 12 IS NOT SET. 




1 1 

1 lOV 




















1 1 7A 

1 1 f 0 


AAI / 1 / 


AAAAAA 

uooooo 


DRIVO 


0 








;FLAG SET TO 1 WHEN DRIVE 0 PRESENT 




1171 


AA 1 / 1 ^ 
OOlH 10 


AAAAA/^ 

ooooou 


DRIV1 


0 








;F0R DRIVE 1 




1 1 70 


AA 1 / OA 

001*ii:0 


AAAAAA 

000000 


DRiV2 


0 








;F0R DRIVE 2 




1 1 7T 


AAI / OO 


AAAAAA 

000000 


DRIV3 


0 








;F0R DRIVE 3 




117/ 


AAI / 0/ 
00 1 H^H 


AAAAAA 

000000 


DRIV4 


0 








;FOR DRIVE 4 




1 1 7C 


AAI / Oil 

00 IhcO 


AAAAAA 

000000 


DRIV5 


0 








;FOR DRIVE 5 




1 1 7^ 

1 1 /O 


AAI / Xf\ 

00Ih30 


AAAAAA 

000000 


DRIV6 


0 








;FOR DRIVE 6 




1 1 77 

1 1 f / 


AAI / VO 


AAAAAA 

000000 


DRIV7 


0 








;FOR DRIVE 7 




1 1 78 




















1 1 70 

1 1 /V 


AAI / t/ 
001H3H 


AAAAAA 

000000 


T56FLG: 0 












1180 


001436 


000000 


PHYDRV: 0 












1181 


00U40 


000000 


SIZYET: 0 
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1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 

1196 00U42 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 
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SEQ 0023 



.SBTTL ERROR POINTER TABLE 



.••THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

.-•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

.-•NOTEI: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 

;*N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOyS; 



EM 

DH 
DT 
OF 



-POINTS TO THE ERROR MESSAGE 

;;POINTS TO THE DATA HEADER 

;;POINTS TO THE DATA 

POINTS TO THE DATA FORMAT 



SERRTB: 



THE ERROR ITEMS TABLE CONSISTS OF ALL THE POSSIBLE ERROR MESSAGES 

USED IN THIS PROGRAM. AN ERROR CALL IN THE PROGRAM CORRESPONDS TO 

THE ITEM NUMBER IN THE ERROR TABLE. THUS 'ERROR 1' IN THE 

PROGRAM CORRESPONDS TO 'ITEM 1' IN THE ERROR TABLE. 

'EM#f#' IS THE POINTER TO THE ERROR MESSAGE WHICH WILL BE TYPED 

OUT IN CASE THAT ERROR WERE TO OCCUR. THUS FOR 'ERROR 1' THE ERROR 

MESSAGE TYPE OUT WILL BE 'TIME OUT ON RKll REG'. 

'DH##f' IS THE POINTER TO THE HEADER BLOCK WHICH WILL BE TYPED OUT 

IMMEDIATELY AFTER THE ERROR MESSAGE. 

*DT###' SERVES AS A POINTER TO THE MEMORY LOCATIONS WHERE 

THE INFORMATION RELEVANT TO THE ERROR TYPE OUTS (LIKE PC, CONTENTS 

OF RKCS ETC.) WILL BE PICKED UP FROM. 

THE LAST ROW CONTAINING '0' SERVES AS A TERMINATOR. 

EXAMPLE: 

IF ON RUNNING THIS PROGRAM A TIMEOUT WERE TO OCCUR ON ADDRESSING RKDS 
(177400). BECAUSE OF SOME FAULT, THE F0L0UIN6 TYPEOUT WOULD 
OCCUR ON THE TELETYPE. 

TIME OUT ON RK11 REG 

PC REG 
###### 177400 

NOTE THAT §»»»»» WOULD BE THE ACTUAL PC WHERE 'ERROR 1' IS LOCATED. 

THE ERROR HANDLER IS LOCATED AT '$ERROR'. THE ERROR CALL IS AN 'EMT' 
INSTRUCTION WITH ITS LOWER BYTE ENCODED TO PROVIDE INDEXING TO THE 
ITEMS IN THE ERROR TABLE. 
THUS 'ERROR 1' IS 104001 

•ERROR 103' IS 104126 ETC. 



; ERROR ITEMS TABLE 
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SEO 002A 



1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1232 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 



001442 
001444 
001446 
001450 



001452 
001454 
001456 
001460 



001462 
001464 
001466 
001470 



001472 
001474 
001476 
001500 



001502 
001504 
001506 
001510 



001512 
001514 
001516 
001520 



001522 
001524 
001526 
001530 



001532 
001534 
001536 
001540 



025402 
032327 
031742 
000000 



027253 
032113 
031762 
000000 



025427 
032047 
031732 
000000 



025456 
032213 
031724 
000000 



025470 
032155 
031762 
000000 



025500 
032155 
031 762 
000000 



025510 
032213 
031724 
000000 



025531 
032327 
031742 
000000 



I TEH 1 



;ITEn 



;ITEn 



.-ITEH 



;ITEH 



; I TEH 



;ITEH 



EM12 
DH44 
DT20 
0 



EH70 
DH14 
DT26 
0 



Eni6 

DH4 
DT2 
0 



EH21 
DH34 
DTI 
0 



En30 
DH30 
DT26 
0 



EH31 
DH30 
DT26 
0 



EH32 
DH34 
DTI 
0 



;ITEn 10 



EH33 
DH44 
DT20 
0 



'SIN* IS SET 

PC RKCS RKER 

SERRPC SREGO SREG1 



CNTRL RDY DIDN'T SET 
PC RKCS RKER 
SERRPC SREGO SREG1 



RKDA yRONG AFTER SSE 
PC EXPCT RECVD 
SERRPC SREGO SREG1 



RKDS ERROR 
PC RKDS 
SERRPC SREGO 



•OPL' BIT SET. CHECK 
PC RKCS RKER 
SERRPC SREGO SRE61 



RKDS 
SREG2 



RKDA 
SREG3 



ON READ/FMT 
RKUC 
SREG2 



FROn DISK ADDRESS 



DRIVE POWER 
RKDS 
SREG2 



'ORU' BIT SET, CHECK DRIVE 
PC RKCS RKER RKDS 
SERRPC SREGO SREGl SRE62 



•RK05' 
PC 

SERRPC 



BIT NOT 

RKDS 

SREGO 



SET 



'DRY' NOT SET 

PC RKCS RKER 

SERRPC SREGO SREGl 



RKDS 
SREG2 



RKDA 
SREG3 













N 2 




no-1 1- 


CZRICICF 
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CZRKKF 


.P11 


21-FEB-78 08:51 


ERROR 


POINTER 


TABLE 


SEO 0025 


129A 






;ITEH 


11 






1295 














1296 


001542 


025551 




En34 


■ 'SOK' DID NOT SET 




1297 


001544 


032213 




DH34 


;PC RKDS 




1298 


001546 


031724 




DTI 


'SERRPC SREGO 




1299 


001550 


000000 




0 






1300 














1301 






;ITEH 


12 






1302 














1303 


001552 


025570 




EN35 


■'SEC COUNTR' DIDN'T COUNT TO 0 




130A 


001554 


032231 




DH35 


-PC SEC-CNTR 




1305 


001556 


031724 




DTI 


.'SERRPC SREGO 




1306 


001 560 


000000 




0 






1307 














1308 






;ITEn 


13 






1309 














1310 


001562 


025623 




En36 


-'SEC COUNTR' DIDN'T INCREMENT 




1311 


001 564 


032251 




DH36 


-PC PRSNT-COUNT NXT-COUNT 




1312 


001566 


031732 




0T2 


SERRPC SREGO SREG1 




1313 


001570 


000000 




0 






1314 














1315 






;ITEn 


14 






1316 














1317 


001572 


025653 




En37 


; 'SECTOR COUNTER' INCREMENTED WRONG 




1318 


001574 


032047 




DH4 


■PC EXPCTD RECVD 




1319 


001576 


031732 




DT2 


'SERRPC SREGO SREG1 




1320 


001600 


000000 




0 






1321 














1322 






.-ITEH 


15 






1323 














1324 


001602 


025707 




En40 


■DIDN'T GET SC=SA FOR THIS SECTOR 




1325 


001604 


032301 




DH40 


■PC SECTOR RKDS 




1326 


001606 


031732 




DT2 


.-SERRPC SREGO SREG1 




1327 


001610 


000000 




0 






1328 














1329 






.-ITEH 


16 






1330 














1331 


001612 


025747 




En4i 


-ERROR-'R/U/S RDY* SHOULD BE SET 




1332 


001614 


032213 




DH34 


;PC RKDS 




1333 


001616 


031724 




DTI 


■SERRPC SREGO 

fvk'vnt V Vff«kW 




1334 


001620 


000000 




0 






1335 














1336 






.-ITEH 


17 






1337 












1338 


001622 


025415 




EM13 


■RKBA ERROR 




1339 


001624 


032047 




DH4 


■PC EXPCT RECVD 




1340 


001626 


031732 




DT2 


■SERRPC SREGO SREG1 




1341 


001630 


000000 




0 






1342 














1343 






;ITEH 


20 






1344 














1345 


001632 


026004 




EH43 


.-UNEXPECTED RKll INTERRUPT 




1346 


001634 


032150 




DH21 


.PC 




1347 


001636 


031756 




DT21 


•SFRRPC 




1348 


001640 


000000 




0 






1349 
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SEO 0026 



1350 






;ITEn 


21 




1351 












1352 


001642 


026036 




En44 


:'CNTRL RDY' DIDN'T SET AFTER SEEK OR DRIVE 


1353 


001644 


032327 




DM44 


;PC RKCS RKER RKDS RKDA 


135A 


001646 


031742 




DT20 


:$ERRPC SREGO SREGI $REG2 SREG3. 


1355 


001650 


000000 




0 




1356 












1357 






;ITEH 


22 




1358 












1359 


001652 


026112 




EN45 


:'ERR' OR 'HE' SET ON SEEK OR DRIVE RESET 


1360 


001654 


032327 




DH44 


:PC RKCS RKER RKDS RKDA 


1361 


001656 


031742 




DT20 


;tERRPC $REGO $RE61 tREG2 $REG3 


1362 


001660 


000000 




0 




1363 












1364 






;ITEn 


23 




1365 












1366 


001662 


026160 




En46 


:RKER BIT, ON SEEK OR DRIVE RESET 


1367 


001664 


032155 




PH30 


:PC RKCS RKER RKDS 


1368 


001666 


031762 




DT26 


:$ERRPC SREGO $REG1 $REG2 


1369 


001670 


000000 




0 




1370 












1371 






.-ITEH 


24 




1372 












1373 


001672 


026216 




EH47 


:RKCS CHANGED AFTER FUNCTION WAS DONE 


1374 


001674 


032047 




DH4 


;PC EXPCT RECVD 


1375 


001676 


031732 




DT2 


.-SERRPC SREGO SREGI 


1376 


001700 


000000 




0 




1377 












1378 






;ITEn 


25 




1379 












1380 


001702 


026260 




En50 


;'R/W/S RDY' DID NOT CLEAR 


1381 


001704 


032155 




DH30 


;PC RKCS RKER RKDS 


1382 


001706 


031762 




DT26 


.-SERRPC SREGO SREGI SREG2 


1383 


001710 


000000 




0 




1384 












1385 






;ITEn 


26 




1386 












1387 


001712 


026307 




En51 


;'R/U/S RDY' DIDN'T SET AFTER SEEK OR DRIVE 


1388 


001714 


032327 




DH44 


;PC RKCS RKER RKDS RKDA 


1389 


001716 


031742 




0T20 


; SERRPC SREGO SREGI SREG2 SREG3 


1390 


001720 


000000 




0 




1391 












1392 






;ITEn 


27 




1393 










1394 


001722 


026362 




EH52 


.RKDA CHANGED AFTER SEEK 


1395 


001724 


032047 




DH4 


:PC EXPCTD REGVD 


1396 


001726 


031732 




DT2 


.-SERRPC SREGO SREGI 


1397 


001730 


000000 




0 




1398 












1399 






.-ITEH 


30 




UOO 












1401 


001732 


026407 




En53 


;'CNTRL ROY* DIDN'T CLEAR AS GO WAS SET 


1402 


001 734 


032155 




DH30 


.PC RKCS RKER RKDS 


1403 


001736 


031762 " 




DT26 


.-SERRPC SREGO SREGI SREG2 


1404 


001 740 


000000 




0 




1405 
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SEO 0027 



K06 






K07 






U08 


001742 


026452 


U09 






1410 


001744 


032374 


H1 1 






U12 


001746 


031774 


141? 






1414 


001750 


000000 


1415 






1416 






1417 






1418 


001752 


026544 


U19 






1420 


001754 


032374 


1421 






1422 


001756 


031774 


1423 






1424 


001760 


000000 


1425 






1426 






1427 






1428 


001762 


026623 


1429 


001 764 


032503 


1430 






1431 


001 766 


031774 


1432 






1433 


001770 


000000 


1434 






1435 






1436 






1437 


001772 


026662 


1438 


001774 


032075 


1439 


001776 


031724 


1440 


002000 


000000 


1441 






1442 






1443 






1444 


002002 


026720 


1445 


002004 


032047 


1446 


002006 


031732 


144"' 


002010 


000000 


1448 






1449 






1450 






1451 


002012 


026757 


1452 


002014 


032155 


1453 


002016 


031762 


1454 


002020 


000000 


1455 






1456 






1457 






1458 


002022 


027014 


1459 


002024 


032047 


1460 


002026 


031732 


1461 


002030 


000000 



;ITE« 



;1TEH 



;ITEH 



I TEW 



31 

EH54 

DH54 
DT54 
0 
32 

EH55 

DH54 

DT54 

0 

33 

En56 
DH56 

DT54 

0 

34 

E«57 
DH5 
DT1 
0 



;ITEn 35 



En60 
DH4 
DT2 
0 



; I TE« 36 



E«61 
DH30 
DT26 
0 



;ITE« 37 



EM62 
0H4 
0T2 
0 



•CNTRL RDf DIDN'T SET ON DOING WRITE/FWT STARTING 
fROH <DSIC-ADRES> 

PC RKCS RKER RKDS RKOA 
DRV# CYL <DSIC-ADRES> SUR SECTR 

SERRPC SREGO SREG1 SREG2 SREG3 
SREG4 SREGS SREG6 SREG> 



•HE' OR 'ERR' 
<DSIC-ADRES> 
PC RKCS 



ON URITE/FHT STARTING FROM 
RKER RKDS 



DRVf CYL <DSK-ADRES> 
SERRPC SREGO SREG1 SREG2 
SREG4 SREG5 SREG6 SREG7 



RKDA 
SUR 
SREG3 



SECTR 



RKDA INCREHENTED WRONG ON WRITE OR WRITE FORMAT 

PC EXPCT: DRV# CYL SUR SECTR 

RECVD: DRVf CYL SUR SECTR 

SERRPC SREGO SREG1 SREG2 SREG3 

SREG4 SREG5 SREG6 SREG7 



RKWC DIDN'T OVERFLOW ON WRITE OR WRITE FORMAT 
PC RECVD 
SERRPC SREGO 



RKBA INCREMENTED WRONG ON WRITE OR WRITE FORMAT 
PC EXPCT RECVD 
SERRPC SREGO SREG1 



RKER SET, ON WRITE/REAO/FORMAT 



PC RKCS RKER 
SERRPC SREGO SREG1 



RKD6 ERROR 

PC EXPCT RECVD 
SERRPC SREGO SREH! 



RKDS 
SREG2 
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CZRKKF 


.P11 


21-FEB-78 08:51 ERROR 


POINTER TABLE SEO 0028 
















• I TFM 


40 




1 A64 










1465 


00203? 


0?70?6 

*>C f wC W 


FN63 


■RKDA IMrRFMFMTFD URHMR HM RFAD nB BFAH FDBMAT 










• pr FVPPT* nBU4 rvi cub cfttb 


K67 












00?036 


031 774 


DTS4 


•IFRRPf tRFCO tBFHI tfiF^? tfiFf;^ 


1 A69 








■1RFG4 tRFG5 tRFG6 tRFG7 

«ncu^ #nc\J^ #ncw vncwr 




Www w**W 




0 




K71 










147? 




- 1 TFM 


41 




U73 










1474 


0Q?Q4? 


057075 

vC f V r c 


FN64 


-RKUr DID MOT OUFRFl OU OM RFAD OR RFAD FORMAT 


1475 


00?044 

WW C w~ ~ 


v^C u • V 


DH64 


■PC RKUC RKDA 


14 76 


no?046 

V'wC w**0 


031 73/ 


DT2 

1/ 1 C 


■SERRPC tREGO SREG1 

VLinr^ vncw vncul 


1477 


005050 


000000 


0 

w 




1478 










1479 




- I TFM 


4? 




1480 










1481 


00?05? 

w wC V ^ C 


0?71 35 

wC • I J 


FMAS 

c no J 


- RKRA IMrRFMFMTFD UROMG OM RFAD OR RFAD FORMAT 


148? 


00?054 

w wC w J ~ 


03?047 

w JC w"* • 


DH4 


'PC FXPCT RECVD 


1483 


00?056 


03173? 

\i J 1 ■ JC 


DT2 


■tERRPC IREGO IREG1 


1484 


00?060 


000000 

www 


0 

w 




1485 










1486 




■ I TFM 


43 




1487 










1488 


00?06? 

w V C wUC 


0?7?01 

wC • C V I 


FM66 

C rl w 


INCORRECT HFADFR FROM '<;FrTOR' 


1489 


00?064 

w wC wU~ 


03?634 

w ^C w 


V n w 


Pf SFfTR FlfPfT RFfVn 

t \m Oc^in CArwl ncLVU 


1490 


002066 

w VC wUU 


03176? 


DT26 


-SERRPC SREGO SREG1 SREG2 


1491 


002070 

WC W • V 


000000 


0 




149? 










1493 




• I TFM 


44 




1494 










1495 


002072 

WC V • c 


027240 


FM67 


DATA ERROR 


1496 


002074 

WC V ' ~ 


032672 

WC w • b 


DH67 


PC FXPCT RFCWD D^K-ADRF^ 


1497 


002076 

WC w r W 


031 762 

w«l 1 • WC 


DT26 


■tERRPC SREGO SREGI SREG2 

VLnnrv vncww vn^vi vncufc 


1498 


00? 100 


000000 


0 




1499 










1500 




- I TFM 


45 




1 501 










1502 


002102 


027253 

w C ' C ^ J 


FM70 


'CNTRL RDY' DIDm'T SET ON DOING R^AD/FMT STARTING 


1503 








FROM <DSIC-ADRFS> 


1504 


002104 


032374 


DH54 ! 


PC RKCS RKER RKDS RKDA 

1 ^ n^vv n^^n n^v^ nfvvr^ 


1505 








DRVf CYL <DSK-ADRES> SUR SECTR 


1 506 


002106 

WC < vw 


031774 




'tFRRPf iRF^O iRFA1 tRFt^P tRFH^ 


1 507 








■tREG4 SREG5 tREG6 SREG7 


1 508 


0021 10 

WC I I V 


000000 

www 


0 




1 509 










1 Sin 




• 1 TFM 


46 




151 1 










1512 


002112 


027344 


En7i 


•HE' OR 'ERR' BIT SET ON READ/FHT STARTING 


1513 








FROM <OSK-AORES> 


1514 


002114 

WC I I ^ 


032374 




■pr BKTC RrFR RKD^ RKDA 

nK^j nKCn nKV^ nKUM 


1515 








DRVIf CYL <DSK-AORES> SUR SECTR 


1516 


002116 


031774 


DT54 


SERRPC SREGO SREGI SREG2 SREG3 


1517 








-SREG4 SREG5 SREG6 SREG7 
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1518 


002120 


000000 




0 




1519 












1520 






;1TEH 


47 




1521 












1522 


002122 


027422 




E«72 


WRONG DRIVE ID IN RKDS AFTER SEEK 


1523 


002124 


032047 




DH4 


PC EXPCT RECVD 


1524 


002126 


031732 




DT2 


SERRPC SREGO SREG1 


1525 


0021 30 


000000 




0 




1526 












1527 






;ITE« 


50 




1528 










HARDWARE POLL. DRIVE ID BITS(13-15) SHOULD BE CLEAR 


1529 


0021 32 


027464 




EM73 


1530 


002134 


032213 




DH34 


PC RKDS 


1531 


002136 


031732 




DT2 


SERRPC SREGO 


1532 


002140 


000000 




0 




1533 












1534 






;ITEn 


51 




1535 












1536 


002142 


027536 




E«74 


HARDWARE POLL. INTERRUPTING DRIVE f NOT PRESENT 


1537 


002144 


032732 




DM74 


•PC DRIVE # 


1538 


002146 


031724 




DTI 


-SERRPC SREGO 


1539 


002150 


000000 




0 




1540 












1541 






;ITEn 


52 




1542 












1543 


002152 


027606 




E«75 


■'DRIVE #' DID NOT INTERRUPT DURING HARDWARE POLL 


1544 


002154 


032732 




DH74 


;PC DRIVE # 


1545 


002156 


031724 




DTI 


;SERRPC SREGO 


1546 


002160 


000000 




0 




1547 












1548 






;ITE« 


53 




1549 












1550 


002162 


027656 




E«76 


SCP DID NOT SET AFTER WAS DONE 


1551 


002164 


033106 




DH117 


;PC RKCS 


1552 


002166 


031724 




DTI 


■SERRPC SREGO 


1553 


002170 


000000 




0 




1554 












1555 






;ITEn 


54 




1556 












1557 


002172 


027721 




E«77 


■RKDA CHANGED AFTER 'DRIVE RESET' 


1558 


002174 


032047 




DH4 


;PC EXPCT RECVD 


1559 


002176 


031732 




0T2 


iSERRPC SREGO SREGl 


1560 


002200 


000000 




0 




1561 












1562 






;1TEH 


55 




1563 












1564 


002202 


027756 




EM100 


;DATA ERROR AT WORDf 


1565 


002204 


032753 




DH100 


;PC WORDI EXPCT RECVD 


1566 


002206 


031762 




DT26 


;SERRPC SREGO SREGl SREG2 


1567 


002210 


000000 




0 




1568 












1569 






.•ITEM 


56 




1570 












1571 


002212 


030001 




EM101 


:CNTRL RDY DID NOT SET AFTER READ CHECK 


1572 


002214 


032327 




DH44 


;PC RKCS RKER RKDS RKDA 


1573 


002216 


031742 




DT20 


;SERRPC SREGO SREG1 SREG2 SREG3 
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SEO 0050 



1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 

1621 

1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 



002220 000000 



002222 
002224 
002226 
002230 



002232 
002234 
002236 
002240 



002242 
002244 
002246 
002250 



002252 
002254 
002256 
002260 



002262 
002264 
002266 
002270 



002272 
002274 
002276 
002300 



002302 
002304 
002306 
002310 



002312 
002314 
002316 



030043 
032155 
031762 
000000 



030067 
033010 
031724 
000000 



030105 
033024 
031732 
COOOOO 



030156 
032047 
031732 
000000 



030214 
032047 
031732 
000000 



030245 
033050 
031762 
000000 



030306 
032327 
031742 
000000 



030351 
032155 
031 762 



.-ITEM 



0 

57 

Eni02 
DH30 
DT26 
0 



.-ITEM 60 



E«^03 

DH103 

DTI 

0 



.-ITEM 61 



Eni04 

DH104 

DT2 

0 



."ITEM 62 



EM105 
DH4 
DT2 
0 



.-ITEM 63 



Eni06 
DH4 
DT2 
0 



.•ITEM 64 



EH107 
DH107 
DT26 
0 



.ITEM 65 



EMTIO 
DH44 
DT20 
0 



.-ITEM 66 



EH111 

DH30 

DT26 



'ERR' OF 'HE' 
PC RKCS 
SERRPC SREGO 



SET ON READ CHECK 
RKER RKDS 
SREG1 $REG2 



'CSE' ON READ CHECK 
PC RKER 
SERRPC SREGO 



RKUC DID NOT OVERFLOW ON READ CHECK OR WRITE CHECK 
PC RECVD RKCS 
SERRPC SREGO SREG1 



RKDA INCREMENTED WRONG ON READ CHECK 
PC EXPCT RECVD 
SERRPC SREGO SREG1 



RKBA CHANGED AFTER READ CHECK 
PC EXPCT RECVD 
SERRPC SREGO SRE61 



MEMORY WORD CHANGED AFTER READ CHECK 
PC LOC EXPCT RECVD 
SERRPC SREGO SREGl SREG2 



CNTRL ROY DID NOT SET AFTER WRITE CHECK 
PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREGl SREG2 SREG3 



HE OR ERR BIT SET AFTER DOING WRITE CHECK 
PC RKCS RKER RKDS 
SERRPC SREGO SREGl SREG2 
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SEO 0031 



1630 

1631 

1632 

1633 

163A 

1635 

1636 

1637 

1638 

1639 

1640 

16A1 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 



002320 000000 



002322 
002324 
002326 
002330 



002332 
002334 
002336 
002340 



002342 
002344 
002346 
002350 



002352 
002354 
002356 
002IjO 



002362 
002364 
002366 
002370 



002372 
002374 
002376 
002400 



002402 
002404 
002406 
002410 



002412 
0024 U 
002416 



030376 
032155 
031762 
000000 



030417 
032047 
031732 
000000 



030456 
032047 
031732 
000000 



030515 
032047 
031752 
000000 



030551 
032753 
031762 
000000 



030624 
033106 
031724 
000000 



030671 
033106 
031724 
000000 



030744 
033106 
031724 



;ITEH 



0 

67 

EH112 

0H3O 
DT26 
0 



;ITEH 70 



EH113 
0H4 
0T2 
0 



.•ITEH 71 



EMIU 
DH4 

0T2 
0 



.-ITER 72 



E«115 
DH4 
0T2 
0 



.ITER 73 



Emi6 
0H1OO 
DT26 
0 



;ITEH 74 



EH117 
0H117 
DTI 
0 



;ITEH 75 



EH120 
0H117 
DTI 
0 



.ITEM 76 



E«121 
DH117 
DTI 



yRITE CHECK ERROR 

PC RKCS RKER RKOS 

SERRPC SREGO SREGl SREG2 



RKDA INCREMENTED WRONG ON WRITE CHECK 
PC EXPCT RECVD 
SERRPC SREGO SREGl 



RKBA INCREMENTED WRONG ON WRITE CHECK 
PC EXPCT RECVD 
SERRPC SREGO SREGl 



RKBA INCREMENTED WITH IBA SET 
PC EXPCT RECVD 
SERRPC SREGO SREGl 



WRONG MEMORY LOCATION CHANGED WITH IBA SET 
PC UORDI EXPCT RECVD 
SERRPC SREGO SREGl SREG2 



RKll DID NOT INTERRUPT WHEN IDE WAS SET 
PC RKCS 
SERRPC SREGO 



RKH DID NOT INTERRUPT AFTER SEEK WAS INITIATED 
PC RKCS 
SERRPC SREGO 



SCP SET BEFORE SEEK COMPLETED 
PC RKCS 
SERRPC SREGO 



HO-11-CZRRRf 
CZRKKf.PII 



RM1 BASIC LOGIC TEST 2 
21-FEB-78 08:51 



G 3 

BACrn 30A{1052) 21-fEB-78 08:58 
ERROR POINTER TABLE 



PAGE 33 



1686 


002420 


000000 




0 


1687 










1688 






;1TEH 


77 


1689 










1690 


002422 


031002 




EH122 


1691 


002424 


032155 




DH30 


1692 


002426 


031762 




DT26 


1695 


002430 


000000 




0 


169A 










1695 






;ITEH 


100 


1696 










1697 


002432 


031051 




EH123 


1698 


002434 


033106 




0H117 


1699 


002436 


031724 




DTI 


1700 


002440 


000000 




0 


1701 










1702 






.ITEH 


101 


1703 










1 704 


002442 


031 110 




EH124 


1705 


002444 


033106 




0H117 


1706 


A A ^ £ £ ^ 

002446 


031724 




DTI 


1707 


AA^ /PA 

002450 


£^ £^£^ £% £% ^ 

000000 




0 


4 "^AB 

1708 










1709 






;ITEH 


102 


4 ^ 4 A 

1710 










4 ^4 4 

1 71 1 


A A ^ £ f '\ 

002452 


A 9 4 4 C 

031152 




EH125 


4 ^ 4 

1712 


002454 


032020 




DH2 


4 ^4 T 

1713 


A A ^ £ f A 

002456 


031 732 




0T2 


17H 


A A ^ y A A 

002460 


A A A A A A 

000000 




0 


4 74 f 

1715 










4 74 ^ 

1716 






; I TEH 


103 


1717 










4 74 a 

1718 


A A7 / ^ 7 

002462 


031211 




EH126 


4 7 4 A 

1 719 


002464 


033122 




DH126 


1 720 


A A^ / d. A 

002466 


A 7 4 7 7 

031732 




0T2 


4 7 4 

1721 


AA7y 7A 

002470 


A A A A A A 

000000 




0 


4 7^^ 

1722 










4 777 

1723 






;ITEH 


104 


1724 










1 725 


AA7/ 7 7 

002472 


A 7 4 7 f 7 

031252 




EH127 


4 77i 

1726 


A A1 £ ^ £ 

002474 


A 9 9 4 ^ 

033122 




DH126 


1 lil 


AA7y 7Z 

002476 


A T 4 77 7 

031732 




012 


1 728 


AA7C AA 

002500 


A A A A A A 

000000 




0 


4 77n 

1 729 










4 7VA 

1730 






;ITEn 


105 


4 7 7 4 

1731 










4 7V7 

1732 


A A7f A7 

002502 


A V 4 7 4 £ 

031314 




EH130 


1733 


002504 


A 7 7 4 f A 

033150 




DH130 


4 77/ 

1734 


A A 7 cm 

002506 


031762 




DT26 


4 77 C 

1 735 


A A 7 C 4 A 

002510 


A A A AAA 

000000 




0 


1 l\f% 

1 r 










1737 










1738 






; I TEH 


106 


1739 








7 740 


002512 


031351 




EH131 


1741 


002514 


033207 




0H131 



RICH DID NOT INTERRUPT AFTER SEEK COMPLETED 
PC RKCS RKER RKDS 
SF.RRPC SRECO SREG1 SREG2 



CNTRL RESET DID NOT CLEAR 'SCP' BIT 
PC RKCS 
SERRPC SREGO 



RKll DID NOT INTERRUPT AFTER READ WAS DONE 
PC RKCS 
SERRPC SREGO 



CNTRL RESET DID NOT CLEAR REGISTER 
PC REGADD RECVD 
SERRPC SREGO SREGl 



RKll DID NOT INTERRUPT AT CPU LEVEL 
PC LEVEL RKCS 
SERRPC SREGO SREGl 



RK11 INTERRUPTED AT WRONG CPU LEVEL 
PC LEVEL RKCS 
SERRPC SREGO SREGl 



'ERR BIT' DID NOT SET IN RKER 
PC RKCS RKER ERR BIT 
SERRPC SREGO SREG1 SREG2 



;HE OR ERR l>ID NOT SET 
;PC RKCS RKER 
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SEO 0033 



1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 



002516 031732 
002520 000000 



002522 
002524 
002526 
002530 



002532 
002534 
002536 
002540 



002542 
002544 
002546 
002550 



002552 
002554 
002556 
002560 



002562 
002564 
002566 
002570 



002572 
002574 
002576 
002600 



031376 
032047 
031732 
000000 



031410 
033235 
031762 
000000 



031433 
033207 
031732 
000000 



031474 
032047 
031732 
000000 



030306 
032113 
031762 
000000 



031531 
032327 
031742 
000000 



002602 031547 

002604 033273 

002606 031742 

002610 000000 



002612 031616 



DT2 
0 



;ITE« 107 

EM132 
DH4 
DT2 
0 

;1TE« 110 

Eni33 
DH133 
DT26 
0 

;ITEH 111 

EN134 
DH131 
DT2 
0 

;ITEH 112 

EH135 
DH4 
DT2 
0 

;ITE« 113 

EH110 
DHU 
DT26 
0 

.-ITEH 114 

Enl37 
DH44 
DT20 
0 

;ITEn 115 

EH140 
DH140 
0T20 
0 



.ITEM 116 
EM141 



:$ERRPC SRECO SREG1 



RKER ERROR 

PC EXPCT RECVD 
SERRPC SREGO SREG1 



NXC BIT DID NOT SET 
PC RKCS RKER 
PC SREGO SREG1 



RKDA 
SREG2 



RK11 DIDN'T INTERRUPT ON SOFT ERROR 
PC RKCS RKER 
SERRPC SREGO SREG1 



HEX BITS INCREMENTED URONG IN RKCS 
PC EXPCTD REC'/O 
SERRPC SREGO SREG1 



CNTRL ROY DID NOT SET AFTER URT CHK 
PC RKCS RKER RKUC 
SERhPC SREGO SREG1 SREG2 



'UPS' NOT CLEAR 

PC RKCS RKER RKDS RKDA 
SERRPC SREGO SREG1 SREG2 SREG3 



DATA ERROR ON TRANSFER FROM DISK TO TTY 
PC EXPCT RECVO RKBA RKCS 
SERRPC SREGO SREG1 SREG2 SREG3 



: 'DRIVE #' PRESENT. BUT NOT SPECIFIED 
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1798 

1799 

1800 

1801 

1802 

1803 

180A 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 



0026U 
002616 
002620 



002622 
00262A 
002626 
002630 

002632 
002634 



032732 
031724 
000000 



025370 
032047 
031732 
000000 

031662 
000000 



DN74 

0T1 

0 

.•ITEM 117 

EM11 
DH4 
DT2 
0 

.-ITEM 120 

EH142 

0 



;PC DRIVE » 
.-SERRPC SREGO 



Ricyr ERROR 
PC EXPCT 
SERRPC SREGO 



RECVD 
SREG1 



SEQ 0034 
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SEO 0035 



18U 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

183A 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 



002636 000005 



002640 
002646 
002650 
002654 
002660 
002666 
002670 
002672 
002674 
002676 
002700 
002702 
002704 



002704 
002710 
002712 
002716 
002720 

002724 
002732 
002740 
002746 
002754 
002762 
002770 
002776 
003004 
003010 
003014 
003022 
003030 



003036 
003042 
003050 
003056 
003064 
003072 

003074 
003076 
003102 
003104 
003112 
003120 

003124 
003132 



023737 
001016 
005077 
012700 
052777 
001006 
005001 
005301 
001576 
005300 
001567 
000000 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
005037 
005057 
112757 
012757 
012757 



015746 
012757 
012757 
012757 
022777 
001012 

000403 
012716 
000002 
012737 
012757 
012657 

025737 
001416 



000042 000046 



176464 
000250 
000200 



001100 

001140 

001100 

022140 
000540 
022412 
000540 
024676 
000340 
024776 
000340 
001206 
001210 
000001 
003022 
005030 



000004 
003076 
177570 
177570 
y77777 



00510* 

0001 76 
0001 74 
000004 



000020 
000022 
000050 
000052 
000054 
000056 
000024 
000026 



001115 
001106 
001110 



000004 
001140 
001142 
176046 



001140 
001142 



000042 000046 



START: 
;;GIVE 



176440 20S: 



STARTA: 
.SBTTL 
;; CLEAR 



RESE 
DRIVE 
CHP 
BNE 
CLR 
NOV 
BIT 
BNE 
CLR 
DEC 
BNE 
DEC 
BNE 
HALT 



TIHE TO LOAD HEADS 
a#42.a#46 
STARTA 
aRKDA 
#250. RO 
«200,aRKDS 
STARTA 
R1 
R1 
.-2 
RO 
20S 



CLEAR THE BUS 

IN CASE OF AN APT START. 

ARE WE IN ACT11 AUTOMATIC MODE? 

NO, SKIP DELAr 

SELECT UNIT 0 

WAIT FOR.. 

DRIVE READY.. 

IN CASE.. 

OF APT.. 

START, BUT.. 

DON'T WAIT.. 

FOREVER. 

RKDS BIT 7 (DRIVE READY) NEVER SET 



INIT 
THE 

nov 

CLR 
CHP 
BNE 

nov 

.-.•INITIALIZE 

nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 

CLR 
CLR 

novB 

nov 

nov 

;;SIZE FOR A 
:; EQUAL TO A 

nov 
nov 
nov 
nov 
cnp 

BNE 



lALIZE THE COnnON TAGS 
COnnON TAGS (SCnTAG) AREA 

«SCnTAG,R6 

(R6)t 

#SUR,R6 ;;DONE? 
.-6 

fSTACIC.SP 
A FEW VECTORS 

#SSC0PE,a#I0TVEC 
#540,a#IOTVECt2 
#tERROR,a#EnTVEC 
#340,a«ERTVEC*2 
#tTRAP,a#TRAPVEC 



#340,afTRAPVEC*2; LEVEL 7 



#tPVRDN,afPURVEC 
#340,a#PWRVEC*2 
STinES 
SESCAPE 
#1.SERnAX 
#..SLPAOR 
#..tLPERR 



FIRST LOCATION TO BE CLEARED 
CLEAR nEnORY LOCATION 

LOOP BACK IF NO 
SETUP THE STACK POINTER 

;IOT VECTOR FOR SCOPE ROUTINE 
LEVEL 7 

;EHT VECTOR FOR ERROR ROUTINE 
LEVEL 7 

:TRAP VECTOR FOR TRAP CALLS 



64S 
65S 
66S 



BR 

nov 

RTI 

nov 
nov 
nov 



.-POWER FAILURE VECTOR 
LEVEL 7 

INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON ERROR ADDRESS 
ALLOU ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
■1", SETUP FOR A SOFTWARE SWITCH REGISTER. 

::SAVE ERROR VECTOR 
.-.-SET UP ERROR VECTOR 

SETUP FOR A HARDWARE SWICH REGISTER 
::AND A HARDWARE DISPLAY REGISTER 
.-.TRY TO REFERENCE HARDWARE SWR 
.-.-BRANCH IF NO TIHEOUT TRAP OCCURRED 
::AND THE HARDWARE SWR IS NOT = -1 

BRANCH IF NO TIMEOUT 
:;SET UP FOR TRAP RETURN 



a«ERRVEC.*(SP) 

#64S.afERRVEC 

#DSWR,SWR 

fDOISP. DISPLAY 

#-1.aSWR 

66t 

6St 

f65t,(SP) 



#SWREG,SWR ;: POINT TO SOFTWARE SWR 

fDISPREG, DISPLAY 

(SP)sa#ERRVEC :;RESTORE ERROR VECTOR 



cnp a#42.a#46 

BEQ 69$ 
.SBTTL TYPE PROGRAH NAME 
;;TYPE THE NAnE OF THE PROGRAn IF FIRST PASS 



,-ARE WE IN ACT11 AUTOnATIC nODE"* 
;YES. SKIP TITLE 



MD-II-CZRKICF . RKII BASIC LOGIC TEST 2 



ZRICKF . 


P11 


21-FEB-78 


08:51 


1870 


003134 


005227 


177777 


1871 


003140 


001043 




1872 


003142 


104401 


003200 


1873 








1874 


003146 


005737 


000042 


1875 


003152 


001006 




1876 


003154 


023727 


001140 


1877 


003162 


001005 




1878 


003164 


104406 




1879 


003166 


000403 




1880 


003170 


112737 


000001 


1881 


003176 






1882 


003176 


000424 




1883 








188A 


003250 






1885 


003250 


012700 


001410 


1886 


003254 


012701 


177764 


1887 


003260 


005020 




1888 


003262 


005201 




1889 


003264 


001375 




1890 


003266 


005227 


177777 


1891 


003272 


001020 




1892 


003274 


013746 


000004 


1893 


003300 


012737 


003314 


1894 


003306 


005737 


177776 


1895 








1896 


003312 


000406 




1897 


0033U 


012737 


000140 


1898 








1899 


003322 


012716 


003330 


1900 


003326 


000002 




1901 


003330 


012637 


000004 


1902 








1903 








190A 








1905 


003334 


012700 


001410 


1906 


003340 


012701 


177766 


1907 


003344 


005020 




1908 


003346 


005201 




1909 


003350 


001375 




1910 


003352 


122737 


000002 


1911 


003360 


001166 




1912 


003362 


013737 


000040 


1913 








19U 


003370 


122737 


000010 


1915 


003376 


101002 




1916 


003400 


105037 


001410 


1917 








1918 


003404 


005737 


000042 


1919 


003410 


001432 




i920 


003412 


005737 


001410 


1921 


003416 


001002 




1922 


003420 


000137 


004262 


1923 


005424 






1924 


003424 


104401 


003432 


1925 


003430 


000413 
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SEQ 0036 



.SBTTS. 



000176 



001134 



INC #-1 
BNE 671 
TYPE .68$ 

GET VALUE FOR SOFTWARE SU 
a«42 
69$ 

SUR,#SURE6 
70$ 



69$: 
70$: 

;;68$: 
67$: 



1$: 



TST 
3NE 
CUP 
BNE 
GTSUR 
BR 

NOVB 



000004 



001400 2$: 



3$: 



BR 

.ASC12 

nov 

MOV 
CLR 
INC 
BNE 
INC 
BNE 
MOV 
MOV 
TST 

BR 
MOV 

MOV 

RTI 
MOV 



70$ 

#1.$AUT0B 
67$ 

<CRLF>/RIC11 LOGIC 

fDDPCH.RO 
#-14. Rl 
(RO)* 
Rl 
1$ 
#-1 

START1 

ERRVEC.-(SP) 
#2$.ERRVEC 

PS 

3$ 

fUO.RKPRI 
f3$.(SP) 

(SP)*.ERRVEC 



FIRST TIME? 
BRANCH IF NO 
TYPE ASCIZ STRING 
ITCH REGISTER 

ARE UE RUNNING UNDER XXDP/AC1? 
BRANCH IF YES 

SOFTWARE SWITCH REG SELECTED? 

BRANCH IF NO 

GET SOFT-SWR SETTINGS 

;SET AUTO-MODE INDICATOR 

;GET OVER THE ASCIZ 
TEST 2/<15><12>/MAINDEC-11-CZRKKF/<CRLF> 



FIRST START ? 
BR IF NOT 

SAVE ERROR VECTOR ADDRESS 
NEW VECTOR ADDRESS 
SEE IF PROGRAM CAN REFERENCE 
PROCESSOR STATUS WORD 
BR IF REFERENCE DIDN'T CAUSE 
SETUP INTERRUPTING PRIORITY TO VALUE 
WHICH WILL ALLOW INTERRUPT ON AN LSI-11 
SETUP RETURN ADDRESS 
RETUr.N 

RESTORE THE ERROR VECTOR 



THE 
TRAP 



FIND OUT IF ACT11. 'XXDP' CHAIN OR DUMP MODE 



1$: 



000041 
001410 
001410 



2$: 



3$; 



MOV 


«DDPCH.RO 




MOV 


#-12. Rl .-CLEAR OUT DRIVE TABLE AREA 


CLR 


(RO)* 




INC 


Rl 




BNE 


1$ 




CMPB 


#2.41 


LOADED FROM AN RK05 ? 


BNE 


ST2 


-BR IF NOT 


MOV 


40.DDPCH 


■GET DEVICE INDICATOR AND DRIVE ADDRESS 




LOADING RK05 


CHPB 


#10.0DPCH 


VALID DRIVE NUMBER IN BYTE 40 ? 


BHI 


2$ 


•BR IF YES 


CLRB 


DOPCH 


■MUST BE DRIVE ZERO WHICH LOADED 






■THIS PROGRAM 


TST 


42 


-CHAIN MODE OR ACTll AUTO ACCEPT ? 


BEO 


4$ 


■BR IF NEITHER 


TST 


DOPCH 


RUNNING FROM AN RK05 ^ 


BNE 


3$ 


BR IF YES 


JMP 


ST3 


-FIND OUT NUMBER OF DRIVES 


TYPE 


.65$ 


;TYPE ASCIZ STRING 


BR 


64$ 


:GET OVER THE ASCIZ 



MD-n-C2RKKF . RKll BASIC LOGIC TEST 2 
CZRKKF .P11 21-FEB-78 08:51 



1926 

1927 

1928 

.929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

19A0 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 
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GET VALUE FOR SOFTWARE SVITCH REGISTER 









.-.65$: 


.ASCIZ 


<15><12>/NOT 


TESTING DRIVE / 


003460 






64$: 








003460 


005046 






CLR 


-(SP) 


; CLEAR WORD ON STACK 


003462 


113716 


001410 




MOVB 


DDPCH,(SP} 


;GET DRIVE ADDRESS 


003466 


104403 






TYPOS 




;TYPE THE ADDRESS 


003470 


001 






.BYTE 


1 


;ONLY 1 CHARACTER 


003471 


000 






• BYTE 


0 


.SUPRESS LEADING ZEROS 


003472 


000137 


004262 




JHP 


ST3 


.GET NUMBER OF DRIVES 


003476 


005227 


177777 


4S: 


INC 


#-1 


; FIRST TIME THROUGH HERE ? 


003502 


001115 






BNE 


ST2 


;BR IF NOT 


003504 


104401 


003512 




TYPE 


,67$ 


;;TVPE ASCIZ STRING 


003510 


000411 






BR 


66$ 


;;GET OVER THE ASCIZ 
TEST DRIVE / 








;;67$: 


.ASCIZ 


<15><12>/TO 


003534 






66$: 








003534 


005046 






CLR 


-(SP) 


: CLEAR WORD ON THE STACK 


003536 


113716 


001410 




MOVB 


ODPCH,(SP) 


.GET DRIVE ADDRESS 


003542 


104403 






TYPOS 




;TYPE THE DRIVE ADDRESS 


003544 


001 






.BYTE 


1 


;ONLY 1 CHARACTER 


003545 


000 






.BYTE 


0 


:SUPRESS LEADING ZEROS 


003546 


104401 


003554 




TYPE 


,69$ 


;;TYPE ASCIZ STRING 


003552 


000431 






BR 


68$ 


::GET OVER THE ASCIZ 








;;69$: 


.ASCIZ 


/ HALT PROGRAH, REMOVE RKDP PACK AND REPLACE IT/<15><12> 


003636 






68$: 








003636 


104401 


003644 




TYPE 


.71$ 


;;TYPE ASCIZ STRING 


003642 


000435 






BR 


70$ 


::GET OVER THE ASCIZ 
PACK, CLEAR LOCATION 40, AND RESTART PROGRAM/ 








;;71$: 


.ASCIZ 


/WITH A UORK 


003736 






70S: 









003736 
003742 
003746 
003750 
003752 
003754 
003760 

004014 
004014 
004016 
004020 
004024 
004026 
004032 
004036 
004042 
004046 

004050 
004052 
00^054 
004056 



012700 
012701 
005020 
005201 
001375 
104401 
000415 



104411 
012600 
012701 
112002 
042702 
012703 
012704 
012705 
020502 

00U14 
005205 
005723 
005204 



001412 
177765 



003762 



177770 

177400 
001414 
177770 
000060 



FIND OUT FROM USER WHICH DR 
TESTED (DRIVES TO BE TESTED 
LOGICAL ADDRESSES SEPERATED 
•DRIVS TO B TSTD?' 
•0.1<CR> 



ST2: 
13$: 



;;65$: 
64$: 



1$: 



2$: 



MOV 

MOV 

CLR 

INC 

BNE 

TYPE 

BR 

.ASCIZ 

RDLIN 

MOV 

MOV 

MOVB 

BIC 

MOV 

MOV 

MOV 

CMP 

BEO 

INC 
TST 
INC 



A CAR. 
#ORIVS,RO 
#-13. Rl 
(RO)* 
Rl 
13$ 
.65$ 
64$ 

<15><12>/DRI 



(SP)*.RO 
#-10. Rl 
(R0)*.R2 
#1 77400. R2 
#DRIV0.R3 
#-10. R4 
#60. R5 
R5,R2 



IVES (LOGICAL ADDRESSES) ARE TO BE 
?}. IN REPLY THE USER SHOULD TYPE IN THE 
BY COMMAS. THUS If 2 DRIVES 0,1 ARE PRESENT: 

RET. SHOULD BE TYPED TO TERMINATE THE LIST. 



3$ 

R5 

(R3)* 
R4 



;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 
VES TO BE TESTED ?/<15><12> 



GET STARTING ADRES OF ASCII STRING 

SET UP COUNT 

GET ASCII CHARACTER 

MASK UNWANTED BITS 



WAS THE TYPED IN CHARACTER 
A NUMBER BETWEEN 0-7? 
YES, BRANCH 
NO, INCREMENT 

INCREMENT POINTER TO DRV FLAG 
CHARACTER THAT WAS INPUT 



MD-1 1 - 


CZRKKF 


RKll BASIC LOGIC 


TEST 2 


MACY11 


H 3 

30A(1052) 21-FEB-78 08:58 PAGE 39 


CZRKKF 


.P11 




08-51 

wU » J I 




GET VALUE FOR 


SOFTWARE SWITCH REGISTER SEO 0038 


1982 


004060 


001 37? 








BNE 


21 


SHOULD BE 0-7, IF ANY OTHER 


1983 
















TYPE ?? I AGAIN ASK FOR 


1984 














;DRIVS TO BE TSTD? 


1985 


004062 


005702 








TST 


R2 ; 


IS IT A TERMINATOR? 


1986 


004064 


001461 








BEQ 


6$ 


YES. EXIT. NO DRIVES INDICATED, 


1987 


004066 








4S: 








1988 


004066 


104401 


004074 

W W ~ W 1 ~ 






TYPE 


.67$ 


;TYPE ASCIZ STRING 


1989 


004072 


000402 

W W W ~ W fc 








BR 


66S 


;GET OVER THE ASCIZ 


1990 










;;67S: 


.ASCIZ 


/??/ 




1991 


004100 








66S: 








1992 


004100 


000716 

www* ■ w 








BR 


ST2 ;G0, AGAIN ASK QUESTION 


1993 


004102 


005713 






31: 


TST 


aR3 .SEE IF ALL READY SELECTED 


1994 


004104 


001370 








BNE 


4S .-ERROR IF StLECTED ALL READY 


1995 


004106 


005213 








INC 


aR3 


SET UP FLAG FOR THE DRIVE 


1996 


004110 


005237 


001412 






INC 


DRIVS 


INCREMENT TOTAL NO OF DRIVES PRESENT 


1997 


004114 


111002 






11$: 


HOVB 


aR0.R2 


GET NEXT CHAR 


1998 


004116 


042702 


177400 






BIC 


#177400. R2 


CHARACTER ONLY 


1999 


004122 


022702 


000106 






CHP 


#'F.R2 


IS IT F? 


2000 


004126 


001026 








BNE 


8S 


NO. GO ON 


2001 


004130 


052713 


100000 






BIS 


«BIT15.aR3 


SET BIT 15 TO SHOW RK05F 


2002 


004134 


032705 


000001 






BIT 


«BIT0.R5 


■EVEN DRIVE? 


2003 


004140 


001407 








BEQ 


9$ 


■EVEN DRIVE SO BRANCH 


2004 


004142 


005763 








TST 


-2(R3) 


■CHECK EVEN DRIVE 


2005 


004146 


001347 








BNE 


4$ 


;EVEN ALL READY SELECTED 


2006 


004150 


012763 


100001 


177776 




nov 


fBIT15!BITO.-2(R3) :SELECT EVEN DRIVE 


2007 


004156 


000406 








BR 


10$ 


; CONTINUE 


2008 


004160 


005763 


000002 




9$: 


TST 


2(R3) 


-CHECK ODD DRIVE 


2009 


004164 


001340 








BNE 


4$ 


•ERROR IF SELECTED BEFORE 


2010 


004166 


012763 


100001 


000002 




ffOV 


fBIT15!BIT0,2(R3 


) .-SELECT ODD DRIVE 


2011 


004174 


005237 


001412 




10S: 


INC 


DRIVS 


; COUNT DRIVES SELECTED 


2012 


004200 


105720 








TSTB 


(RO)* 


;POINT TO NEXT CHAR 


2013 


004202 


000744 








BR 


11$ 


; CHECK FOR COMMA 


2014 


004204 


022702 


000054 




8S: 


CHP 


#54. R2 


;IS IT A 'COMMA'? 


2015 


004210 


001403 








BEQ 


5$ 


;VES. GO PROCESS NXT WORD 


2016 


004212 


005702 








TST 


R2 


;N0, IS IT A TERMINATOR? 


2017 


004214 


001324 








BNE 


4$ 


;IF NOT, SOMETHING WRONG 


2018 
















:G0 ASK QUESTION AGAIN 


2019 


004216 


000404 








BR 


6$ 


;EXIT, IF A TERMINATOR 


2020 


004220 


105720 






5S: 


TSTB 


(RO)* 


; INCREMENT PTR TO NXT BYTE 


2021 
















;IN INPUT BUFFER 


2022 


004222 


005201 








INC 


R1 


; THERE SHOULD BE NO MORE THAN 


2023 


004224 


001277 








BNE 


1$ 


;8 DRIVES, HENCE IF MORE 


2024 


004226 


000717 








BR 


4$ 


;THAN 8 DIFFERENT NOS. TYPED IN. ERROR! 


2025 
















;G0 AGAIN ASK THE QUESTION 


2026 


















2027 


004230 


P05037 


001440 




6$: 


CLR 


SIZYET 


-NO SIZING NEEDED 


2028 


004234 


032777 


002000 


174676 




BIT 


#swio,aswR 


; TESTING ON SIMULATOR? 


2029 


004242 


001003 








BNE 


7$ 


;YES, BRANCH 


2030 


004244 


005037 


001344 






CLR 


sinuL 


;N0, CLR FLAG 


2031 


004250 


000502 








BR 


ST4 




2032 


















2033 


004252 


012737 


000001 


00134<t 


7S: 


MOV 


#1.SIHUL 


;SET FLAG TO INDICATE SIMULATOR 


2034 


004260 


000476 








BR 


ST4 




2035 


















2036 


















2037 
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CZRKKF.P11 21-FEB-78 08:51 GET VALUE FOR SOFTWARE SWITCH R 



2038 










.'CHECK 


NUMBER 


OF DRIVES 


2039 


00A262 


012737 


Mini 


OOUAO 


ST3: 


nov 


#-1,SIZ/ET 


20A0 


00A27O 


012737 


00AAA2 


OOOOOA 




nov 


/r5$.i«A 


20A1 


00A276 


005777 


17502A 






TST 


aRKDS 


20A2 


00A302 


005777 


175032 






TST 


aRKDA 


20A3 


00 A 306 


012737 


00A53A 


OOOOOA 




nov 


fBADTno.af^ 


20AA 


00A31A 


10AA01 








TYPE 




20A5 


00A316 


001216 








nsGi 




20A6 


00A320 


012700 


177770 






nov 


#-10. RO 


20A7 


00A32A 


005037 


001A12 






CLR 


DRIVS 


20A8 


00A330 


005001 








CLR 


R1 


20A9 


00A332 


00500A 








CLR 


RA 


2050 


00A33A 


012702 


001A1A 






nov 


«DRIV0,R2 


2051 


00A3A0 


010177 


17A77A 




1$: 


nov 


R1 .aRKDA 


2052 


0OA3AA 


020177 


17A770 






cnp 


R1 .aRKDA 


2053 


00A350 


001A05 








BEQ 


3$ 


205A 


00A352 


012703 


OOA356 






nov 


#2$.R3 


2055 


00A356 


00A737 


021026 




2S: 


JSR 


PC.TYERH 


2056 
















2057 
















2058 
















2059 
















2060 
















2061 
















2062 


00A362 


000A13 








BR 


A$ 


2063 


00A36A 


032777 


000200 


17A73A 


3$: 


BIT 


«200.aRKDS 


206A 
















2065 


00A372 


001 A07 








BEQ 


A$ 


2066 


00A37A 


10AA01 








TYPE 




2067 


00A376 


001213 








SCRLF 




2068 


OOAAOO 


005237 


001A12 






INC 


DRIVS 


2069 


OOAAOA 


005212 








INC 


(R2) 


2070 


00AA06 


010AA6 








nov 


RA.-(SP) 


2071 


00AA10 


10AA02 








TYPOC 




2072 


00AA12 


005722 






A$: 


TST 


(R2)* 


2073 


00AA1A 


062701 


020000 






ADO 


f 20000, R1 


207A 


00AA20 


00520A 








INC 


RA 


2075 


00AA22 


005200 








INC 


RO 


2076 


00AA2A 


001 3A5 








BNE 


1$ 


2077 


00AA26 


005737 


001A12 






TST 


DRIVS 


2078 


00AA32 


001011 








BNE 


STA 


2079 


00AA3A 


10AA01 








TYPE 




2080 


00AA36 


001236 








nsG2 




2081 


OOAAAO 


000A06 








BR 


STA 


2082 
















2083 


00AAA2 


011603 






5$: 


nov 


(SP).R3 


208A 


OOAAAA 


022626 








cnp 


(SP)+.(SP)* 


2085 


00AAA6 


062703 


177776 






ADD 


#-2.R3 


2086 
208/' 


00AA52 


00A737 


021026 






JSR 


PC.TVERn 
















2088 
















2089 
















2090 
















2091 
















2092 
















2093 

















58 PAGE AO 
GISTER 



SEO 0039 



CHECK FOR RK05F LATER 

SET UP ADRES FOR TIME-OUT VECTOR 

REFERENCE RKDS 

REFERENCE RKDA 



INITIALIZE COUNT FOR THE 8 DRIVES 
INITIALIZE # OF DRIVES PRESENT TO 0 
INITIALIZE ADDRESS TO DRIVE 0 



ADDRESS THE DRIVE 
CHECK, WAS IT ADDRESSED? 
YES 



WHILE CHECKING NUMBER OF DRIVE 

UNDER NON-MANUAL MODE 

RKDA HAD TO BE ADRESED BUT 

IT WAS FOUND THAT THE DRIVE NO 

THAT WAS WRITTEN COULD NOT BE READ BACK 

CORRECTLY. 



CHECK IF 'DRY' BIT IS SET, IF SET DRIVE IS 
PRESENT 



;IF PRESENT, INCREMENT « OF DRIVES 

.-SET UP FLAG INDICATING THIS DRIVE PRESENT 



SHIFT POINTER TO NXT DRIVE INDICATOR 
SET UP ADDRESS FOR THE NEXT DRIVE 
HAVE U CHECKED FOR ALL 8 DRIVES 



GO CHECK THE DRIVE INDEPENDENT 
CONTROLLER. LOGIC 
GET PC WHERE TIMEOUT OCCURED 
RESTORE STACK 

GO TYPE ERROR MESSAGE 

WHILE CHECKING FOR THE NUMBER OF 

DRIVES IN NON-MANUAL MODE:- 

RKDS AND RKDA HAD TO BE REFERENCED. TIMEOUT 

OCCURED ON REFERENCING. PC IN THE ERROR 

MESSAGE INDICATES WHERE THE TIMEOUT OCCURED. 



HD-n-CZRKKF, RU1 BASIC LOGIC TEST 2 
CZRKKF.Pn 21-FEB-78 08:51 

209A 
2095 
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HACVII 30A(1052) 21-FEB-78 08:58 PAGE A1 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEQ OOAO 



1 An/. 

2096 


00AA56 


AAC AT^ 

005037 


AA1 / T/ 

001434 




CT/ • 

ST4 : 


r 1 D 
LLK 


I3bf Lu 


2097 - 


AAi i Z.^ 

00s462 


005737 


AA1 / 1 ^ 

001412 






TC T 

Tal 


l\D 1 UC 

OnlVa 


2098 


AA/ t £.L. 

004 A 66 


AA4 nf\i 

001004 








dNE 


1> 


2099 


f\f\i 0 7A 

004470 


004737 


U21742 






1 C D 

Jan 


or LIlTtHC 

PL <UAI int 


2100 


AA/ / '7 0 

004474 


AAA4 

0001 37 


A^ AZ. C T 

020652 








• cUr 


?10l 


AA/ CAA 

004^00 


OlCfJf 


AAi / 1 / 

001414 


001334 


1>: 


unti 

nuv 


VUKlVUfUKVrlK 


2102 


f\f\i CAZ 

004506 


AArAT7 

005037 


AA1 TC^ 

001332 






LLR 


DRVuUN 


















210A 


004512 


005037 


001350 






CLR 


DRIVAO 


2105 
















2106 


004516 


012737 


004534 


000004 




HOV 


#BADTH0,af4 


2107 
















2108 


004524 


012777 


004600 


174650 




HOV 


#BAOINT,aRKVEC 


2109 
















2110 


004532 


000465 








BR 


TST1 



2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 



;INITIALIZE THE NO. OF DRIVES 
;THAT HAVE BEEN CHECKED 
.•INITIALIZE DRIVE ADDRESS TO 
:THE FIRST DRIVE 

;SET TIME OUT VECTOR FOR UNEXPECTED 
;TIHE OUTS 

;SET UP RK11 INTERRUPT VECTOR FOR 
.'UNEXPECTED INTERRUPTS FROM RKll 
;G0 TO TEST 1 



.-THIS ROUTINE HANDLES UNEXPECTED TIME OUTS 



004534 
004536 
004540 
004542 
004546 

004566 
004566 
004570 
004572 
004574 



011600 
005740 
022626 

104401 C04550 
000407 



010046 
104402 ' 
000000 

000137 002636 



BADTMO: MOV 
TST 



;;65S: 
64S: 



CMP 

TYPE 
BR 

.ASCIZ 

HOV 
TYPOC 
HALT 
JHP 



(SP).RO ;SAVE PC WHERE TIME OUT OCCURED 
-(RO) 

(SP}«^«(SP}«- .-RESTORE STACK POINTER 
,65S :;TYPE ASCIZ STRING 

64t ::GET OVER THE ASCIZ 

<15><12>/TIM0UT,PC=/ 



RO,-(SP} 
a#START 



:SET UP FOR TYPING OUT PC 
;G0 TYPE OUT OCTAL PC 



:THIS ROUTINE HANDLES UNEXPECTED INTERRUPTS FROM RK11 
;SW 9 AND .10 FOR LOOPING ON ERROR 
;AND LOOPING ON JEST IN WHICH TIMEOUT 
.•OCCURRED. ARE PROVIDED. 



004600 
004602 
004604 
004612 
004614 
004616 
004620 
004622 

004624 
004630 

004640 
004640 



011600 
005740 

032777 020000 174326 

001014. 

104401 

001213 . 

104401 - 

026004 • 

104401 004632^ 
000403 



010046 



BADINT: MOV 
TST 
BIT 
BNE 
TYPE 
SCRLF 
TYPE 
EM43 



(SP).RO 
-(RO) 

#20000.9SUR 
IS 



;;65S: 
64S: 



TYPE 
BR ^ 
.ASCIZ 

NOV 



.65S 

64$ 

/.PC=/ 

RO.-(SP) 



.-SAVE PC WHERE INTERRUPT OCCURED 

; INHIBIT ERROR TYPEOUT? 
;YES. DON'T TYPE OUT 



.•TYPE 'UNEXPEXTED RK11 INTERRUPT* 
.•TYPE • AT PC=' 
;:TYPE ASCIZ STRING 
;:GET OVER THE ASCIZ 



:SET UP FOR TYPING OUT PC 



CZRKKF.P11 



RK11 BASIC LOGIC TEST 2 
21-FEB-78 08:51 



C A 

MCV11 30A(1052) 21-fEB-78 08:58 PAGE 42 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEQ 0041 



2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 

2201 

2202 

2203 

2204 

2205 



004642 104402 



004644 
004652 
004654 
004656 

004662 
004670 
004672 
004674 



032777 
001403 
022626 
000177 

032777 
001401 
000002 
000000 



001000 174266 IS: 



174224 

040000 174250 



2S: 
3$: 



004676 000137 002636 



004706 000004 



004710 
004714 
004716 
004720 
004724 
004726 
004732 
004734 
004740 
004744 



01270C 
005001 
005002 
005737 
001403 
120237 
001435 
010177 
105777 
100005 



TVPOC 

BIT 
BEO 
CNP 
JHP 

BIT 
BEO 
RTI 
HALT 



JNP 



#1000. 8SWR 
2S 

(SP)*.{SP)* 
iSLPADR 

«40000.aSWR 
31 



afSTART 



GO TYPE OCTAL PC WHERE BAD 
INTERUPT OCCURED 
LOOP ON ERROR? 
NO, BRANCH 

YES, REPOSITION STACK 

GO TO THE STARTING ADDRESS OF 

THE TEST THAT GAVE UNEXPECTED INTERRUPT 

LOOP ON TEST? 

NO BRANCH 

YES, LOOP. GO BACK WHER U INTERRUPTED FROM. 
UNEXPECTED INTERRUPT OCCURED AS 
INDICATED IN THE TYPE OUT.U CAN LOOP 
ON ERROR, TEST, OR INHIBIT TYPEOUT BY 
SETTING APPROPRIATE SWITCHES. 
GO BACK TO THE START OP THE 
PROGRAM. THUS PRESSING CONTINUE 
AFTER THE ABOVE HALT WILL 
RESTART THE PROGRAM 



:RESTART AFTER POWER FAIL 

•THE PROGRAM WOULD RESTART HERE IF POWER CAME BACK AFTER A FALIURE. 



004702 004737 021742 



PFSTRT: JSR 



PCWATIME 



.■KILL TIME 



.••TEST 1 CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT 

•THIS TEST CHECKS THAT THE DRIVES THAT ARE NOT SPECIFIED 
•(IN RESPONSE TO "DRIVS TO BE TSTD?") ARE NOT FOUND TO BE PRESENT. 
•EVERY DRIVE FROM 0 TO 7 IS ADDRESSED. IF A PARTICULAR DRIVE 
•GIVES 'DRY* (IN RKDS). IT IS CHECKED THAT THIS DRIVE 
•WAS SPECIFIED BY THE USER, IF IT WAS NOT AN ERROR IS 
•REPORTED. GIVING THE DRIVE NUMBER. IT IS LIKELY THAT THE USER 
•MAY HAVE FORGOTTEN TO PUT THE DRIVE (THAT IS NOT SPECIFIED) ON 
•'LOAD'. IF THIS IS THE CASE THEN PUT THIS DRIVE ON 'LOAD'. 
•IF THIS IS NOT THE CASE, THERE IS A GENUINE ERROR. (TWO DIFFERENT 
•DRIVE ADDRESSES MAY BE RESULTING IN THE SELECTION OF THE SAME 
•PHYSICAL DRIVE.) 



TSTl: SCOPE 



001414 

001410 

001410 

174400 
174362 



1$: 



2S: 



004746 005710 



MOV 

CLR 

CLR 

TST 

BEO 

CMPB 

BEO 

nov 

TSTB 
BPL 

TST 



#DRIVO,RO 

R1 

R2 

DDPCH 
2S 

R2. DDPCH 
4S 

Rl.aRKDA 

8RKDS 

3S 

aRO 



INITIALIZE POINTER 
INITIALIZE DRIVE ADRES 0 
INITIALIZE DRIVE # 0 
LOADED FROM AN RK05 ? 
B IF NOT 

LOADED FROM THIS DRIVE ? 
BR IF YES 
ADRES THE DRIVE 
DRIVE READY? 

NO, THIS DRIVE NOT PRESENT 
YES. THIS DRIVE SELECTED 
WAS THIS DRIVE SPECIFIED BY 
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D A 

HACY11 30A(1052) 21-fEB-78 08:58 PAGE «3 

T1 CHECK THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT 



ccUO 








ccvf 


UUh f 3U 


nni n3A 

UU 1 UcO 




ccUO 








ccUt 








331 n 

cc 1 U 








331 1 




m n3T7 


nm 1 <^3 
UU 1 1 Oc 


331 3 
cc 1 c 


UU*» r 30 


1 rtA 1 1 <k 




331 








331 ^ 
cc 1 








331 «1 
cc 1 J 








cc 1 O 








331 7 
cC 1 r 








331R 

CC 1 O 








331Q 
cc 1 ~ 




fins 71 n 




3330 

CCCU 


UU*» f Oc 


nni ^31 

UU 1 He 1 




3331 

CCC 1 








3333 
cccc 


UU** f OH 


nn^777 

UUH 1 J ' 


03077^ 

Uc U f r H 


C C C J 


00^770 


1 n^ni n 

1 wH \J 1 w 




C C C *t 








C c c ^ 
















???7 

CCC 1 








???R 

CCCv 








CCC7 


VUH r » C 


nnsni n 

Uw^U 1 U 




cc J\J 








CCj\ 




w 1 wwU J 




Cc jC 




1 QC f \Jj 


nni^i^ 

Uw 1 1 H 


cc J J 


nosonp 


wH C 1 w J 


onnr.n^ 

wUwwU J 


C C 




WUC f VJ 


001414 

WW 1 1 


C C J ^ 


00S01 3 


0AP7PX 

wH C 1 C J 


loonnn 

1 wwwww 


C C 




04P71 ^ 

w** C f i J 


1 ononn 

1 wwwww 


C C J > 


OOSOP? 

WW ^ vC c 


WW J J J 1 


WW 1 H 1 C 


?23a 


0050P6 


005P0? 

v\0 JCvC 




Cc J7 


00S030 

ww^w^w 


00S7P0 

WW J f C\J 




CCH\J 


WW Jw^C 


0AP701 

WUC 1 W 1 


opoonn 

uc wwww 


c C H 1 


00S0^6 

vV 


001 ^^0 

WW ■ J Jv 












C C J 








c c 








P245 

c c t ^ 








P266 
c c u 








PP67 

C C ' 








pp^a 








C t T 








PPSO 


WW J wH w 






PPS1 

C b 1 








PP5P 








PPS3 

C C J J 








PP54 








PP55 








2256 








2257 








2258 








2259 


0050A0 


OOOOOA 




2260 


005042 


012737 


000001 


2261 


005050 


012737 


000002 



3$: 



4S: 



NUDRV: 



SEO 0042 



BNE 4S 



nOV R2,SREG0 
ERROR 116 



TST 
BEO 

JSR 
ERROR 



aRO 
4S 

PC.GT4RG 
10 



THE USER? 
YES. OK 

NO, THIS DRIVE M UAL NOT SPECIFIED 
BY THE USER, BUT STILL IS GIVING 
'DRY' WHEN ADRESED. REPORT EROR. 
GET DRIVE # 

THIS DRIVE » WAS NOT SPECIFIED BY 
THE USER, BUT WHEN ADRESED GAVE 
•DRY'. CHECK THAT THIS DRIVE # IF 
PHYSICALLY PRESENT IS ON 'LOAD'. IF 
THIS IS NOT THE CASE. THEN ONE DRIVE 
MAY BE GETTING SELECTED BY TWO DIFFERENT 
LOGICAL ADDRESSES. 

CHECK THAT THIS DRIVE WAS NOT INDICATED 

IF IT WAS. t IT IS NOT FOUND TO BE 

PRESENT (DRY CLEAR). REPORT ERROR. 

GET RKCS, ER, DS, DA 

DRIVE # (AS IN RKDA) WAS INDICATED BY 

THE USER, BUT WAS NOT FOUND TO BE PRESENT. 

CHECK THAT THE ROTARY DRIVE SELECTION 

SWITCH ON THE MODULE IS SET TO THE RIGHT 

DRIVE #. 



CLR 


aRO 


THIS DRIVE IS NOT FOUND TO BE PRESENT 
■HENCE DROP IT FROM THE SELECTION TABLE. 


nov 


R0,R3 


■DRIVE ADDR 


SUB 


#DRIV0.R3 


MINUS OFFSET FOR TABLE 


BIC 


#3,R3 


EVEN DRIVE OF PAIR 


ADD 


#DRIV0,R3 


POINT TO EVEN OF PAIR IF RK05 F 


BIC 


#100000, (R3)* 


■NOT SPECIFIED AS F MODEL 


BIC 


#100000, (R3) 


-SAME 


DEC 


DRIVS 


DECREMENT DRIVE COUNT 


INC 


R2 


INCRMNT DRIVE # 


TST 


(R0)4- 


INCRMNT POINTER 


ADD 


#20000. R1 


INCRMNT ADRES TO NXT DRIVE 


BNE 


IS 


LUP BAK IF NOT DONE 



;THIS PART OF THE PROGRAM IS GOING TO BE REPEATED FOR 
;EACH DRIVE PRESENT 

■'DRIVAD' CONTAINS IN BITS 15,14,13 THE ADDRESS OF THE 
;DRIVE BEING CURRENTLY CHECKED. 



•TEST 2 FIND OUT NEXT DRIVE TO BE CHECKED 

THIS CODE FINDS OUT THE NEXT DRIVE THAT IS PRESENT AND THEN SETS UP 

THE ADDDRESS IN DRIVAD (BITS 13,14,15). THUS THROUGHOUT THE FOLLOWING TESTS 

THE DRIVE TESTED IS THE DRIVE WHOOSE ADDRESS IS IN 'DRIVAD*. 



001206 
001102 



TST2: 



SCOPE 

MOV 

MOV 



#1.STIMES ;;D0 1 ITERATION 

#2.STSTNM .RESET POINTER TO THIS TEST 



ND-11- 


CZRKKF . 


RK11 BASIC LOGIC 


TEST 2 HACVll 


30A(1052) 


E 4 

21-FEB-78 08:58 PAGE 44 


CZRKKF 


.P11 


?1-f EB-78 


08:51 


T2 


FIND QUI 


NEXT DRIVE TO BE CHECKED SEO 0043 


2262 














NO. CHANGE THIS (2) IN CASE THE 


2263 














TEST NO. CHANGES 


2264 


005056 


005037 


001112 




CLR 


JERTTL ; 


CLEAR TOTAL ERROR COUNT 


2265 


005062 


005737 


001412 




TST 


DRIVS ; 


R THERE ANY DRIVES PRESENT? 


2266 


005066 


001002 






BME 


,♦6 


YES. BRANCH 


2267 


005070 


000137 


020652 


4$: 


JHP 


SEOP 


NO. jnP TO THE END 


2268 


005074 


013701 


001354 




nov 


DRVP1R.R1 


GET THAT POINTER TO THE NEXT 


2269 














DRIVE FLAG 


2270 


005100 


032721 


000001 


2$: 


BIT 


#BIT0.{R1)» '. 


IS THIS DRIVE PRESENT? 


2271 


005104 


001005 






BNE 


IS 


YES 


2272 


005106 


062737 


020000 


001350 6S: 


ADD 


#20000. DRIVAD 


FORM NXT DRIVE ADRES 


2273 


005114 


001371 






BNE 


2S 




2274 


005116 


000764 






BR 


4S 




2275 


005120 


005737 


001410 


IS: 


TST 


DDPCH 


PROGRAM LOADED FROM AN RK05 ? 


2276 


005124 


001413 






BEQ 


5S 


NO. BRANCH 


2277 


005126 


013746 


001350 




nov 


DRIVA0.-(SP> 


PUT TEST DRIVE ADDRESS ON THE STACK 


2276 


005132 


000316 






SWAB 


(SP) 


SETUP TO RIGHT JUSTIFY THE ADDRESS 


2279 


005154 


006216 






ASQ 


(SP) 


RIGHT JUSTIFY THE ADDRESS 


2280 


005136 


006216 






ASR 


<SP) 


RIGHT JUSTIFY THE ADDRESS 


2281 


005140 


006216 






ASR 


(SP) 


RIGHT JUSTIFY THE ADDRESS 


2282 


005142 


006216 






ASR 


(SP) 


RIGHT JUSTIFY THE ADDRESS 


2283 


005144 


006216 






ASR 


(SP) 


■RIGHT JUSTIFY THE ADDRESS 


2284 


005146 


122637 


001410 




CNPB 


(SP)». DDPCH 


■PROCRAR LOADED FROM THIS DRIVE ? 


2285 


005152 


001755 






BEQ 


6S 


■BR IF YES, DON'T TEST THE DRIVE 


2286 


005154 


010137 


001 354 


35: 


nov 


R1 .DRVPTR 


; STORE POINTER TO THE NEXT 


2287 














;DRIVE FLAG 


2288 


005160 


104401 


001272 




TYPE 


.nSG4 




2289 


005164 


013746 


001350 




nov 


DRIVAD.-(R6) 


■GET THE DRIVE ADDRESS 


2290 


005170 


004737 


A ^ 4 ^ A A 

021200 




JSR 


PC.SHFTRT 


;G0 SHIFT IT TO THE RIGHT 


2291 


005174 


A A r A T 7 

005037 


001404 




CLR 


FFLAG 




2292 


005200 


A 4 4 ^ A A 

011600 






nov 


(R6).R0 


; DRIVE NUMBER 


2293 


005202 


« A i i A V 

104403 






TYPOS 




;G0 TYPE THE OCTAL « FOR THE 


2294 














;DRIVE THAT IS BEING CHECKED 


2295 


005204 


001 


000 




• BYTE 


1 .0 




2296 


005206 


A A J T A A 

006300 






ASL 


RO 


■INDEX TO TABLE 


2297 


005210 


A A C 7 J A 

005760 


001414 




TST 


DRIVO(RO) 


■SEE IF F 


2298 


005214 


4 A A A A ^ 

100006 






BPL 


5S 


,N0 


2299 


005216 


104401 


005224 




TYPE 


.65S 


;;TYPE ASCIZ STRING 


2300 


005222 


AAA i A 4 

000401 






BR 


64 S 


;:GET OVER THE ASCIZ 


2301 








.■;65S: 


.ASCIZ 


/f/ 




2302 


005226 






64$: 








2303 


005226 


A Af 1 V 7 

005237 


AA4 / A^ 

001404 




INC 


FFLAG 


;SET F FLAG 


2304 


005232 


4 A y / A 4 

104401 




5$: 


TYPE 






2305 


005234 


001215 






SCRLF 




■TYPE CR. LF 


2306 
















2307 








.••TEST 


3 


CHECK THAT DRIVE 


IS SUPPLIED WITH POWER-DPL BIT 


2308 
















2309 


005236 


A AAA A / 

000004 




TST3: 


SCOPE 






2310 


005240 


10441 3 






CNT. RESET 


■GO. DO CONTROL RESET 


2311 














■THIS IS A CALL FOR THE 'CNTRL- 


2312 














;RESET' ROUTINE. A CONTROL RESET IS 


2313 














; ISSUED AND AFTER A CERTAIN TIKE 


2314 














■IF THE 'CNTRL RDY* DOES NOT SET 


2315 














;AN ERROR IS REPORTED. NOTE THAT 


2316 














;THE PC IN ERROR MESSAGE IS THE 


2317 














;PC WHERE 'CNT. RESET' IS LOCATED. 
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MAC VII 

T3 



30A(1052) 21-FEB 
CHECK THAT DRIVE 



7 i O 

^318 
















'5 7 *5 A 
CDCV 


AAC 5/5 


A1 77AA 
01 3 f 00 


AA1 75A 
001 3£0 


c5c 1 


AAC 5/ A 
003£*»O 


A1 7777 

Q] 5f f r 


AA1 7CA 

001 330 


■^7'^'5 


AAC 5 c y 

005£54 


AAC 7 1 A 
003 f 10 




5T 07 


AAC5C^ 


AA1 AA7 

001003 








A1 1 A7 7 

01103f 


AA1 1 A 5 
001 l0£ 




AAC 5Z./ 


1 A/ AA/ 

104004 




c5cO 








•5707 

cic 1 


AAC 5XZ. 


A1 5777 


AAAA1 C 
00001 3 


575B 










AAC 5 7L 


AACAA1 

003001 




i77n 

2550 


AAC 5 7X 

003£rO 


A7571 A 

03£' 10 


A 1 AAAA 
010000 


1771 
£331 


AAC7A5 

UU33U£ 


AA1 AA7 

001003 




d55d 


AAC 7 A/ 


AAC5A1 

0U3£U1 




c5jj 


AACYAA 


Am 777 

001 3f 3 




c33*i 


nAC7i n 


AAAA A7 

000*»03 




^335 


AA571 5 

00331 £ 


AAZ 777 

OOh f 5f 


A51 AA5 
yjC ' UU£ 


£336 


003310 


1 AA AAC 

1 0«0U3 




■5777 

c55f 








C330 








57TO 


/"A? 75A 
u03 3£0 


AACAAI 
003UU 1 




5 7AA 


AA? <55 

003 3££ 


A7571 A 
03£A 1 0 


AAA1 AA 
0001 00 


1 


U033£0 


AA1 A1 A 
00 1 0 1 U 




57A5 
d5'*C 


00333U 


1 AAA 1 7 
IOhhI ' 


AAAA1 1 
00001 1 


5TZ. T 


AAC77/. 
0U333*» 


AAC5ni 




57AA 


AAC77A 

003330 


AA 1771 

00 1 3 f 1 




c3*»5 


AAC 7z.n 
003 3*»U 


ni 7777 


1 7X7A'} 
I f jfoc 


5TZ./L 


U033*»0 


1 AA n^^, 
IUhU 10 




5TZ.7 
t 3h I 








dj'*0 
















c 3 jU 








57^1 

£5 J 1 








CJJd 








OXKX 

CJJJ 








c 3 JH 








5TC? 
C 3 J J 








£ J JO 


AACTl^n 
UU J j3U 


AAAAAA 




CJjf 


nAST^5 
UU333£ 


1 fiAt 1 X 




OXKA 

cjjo 








d 35t 








c 30U 








c30 1 








57A5 








£303 








5 7 A/, 
£30H 








£303 








£ 30o 








?TA7 
£30» 


UU5 J J*» 


ni ^777 


nni x^n 


£ JVv 


00536P 

W ^ .JVC 


01 7700 


173740 


2369 


005366 


032700 


002000 


2370 


005372 


001403 




2371 


005374 


004737 


021002 


2372 


005400 


104006 




2373 









1$: 
2$: 

3$: 

4$: 



TST4: 



f 

•78 
IS 



08:58 PAGE 45 
SUPPLIED WITH POUER-DPL BIT 



SEQ 0044 



.•THIS IS A 
.-OCCURS GO 



VERY BASIC ERRt IF IT 
BACK TO TEST 10 



NOV 


RKDS.RO 




nu V 






T C T 




Lie L K 1 * T oil Ur n^VS 13 dCi> 




1 * 
1 ' 




■inu 


aBA tDFf^n 


RFT Birnc 


CBDAD 

C nnUn 


A 
H 


rnRRFTTI V CHnill D RF MnM>7FRn 


nuv 




I^^IIF A DRV RF^FT IF DRVF 
PDUFR 1^ in DPI Ulll ^FT 

rUWCn Ll/« L/rL WILL OCI 


CLR 

V L rt 


R1 




BIT 


#ioooo,aRO 


•IS 'DPL* BIT SET? 


BNE 


3S 


•DPL IS SET, BRANCH 


INC 


R1 


;WAIT FOR SOME TIME TO 


BNE 


2S 


;SEE IF DPL WOULD SET 


BR 


4$-2 


;0K. DPL NOT SET 


JS'i 


PC.6T3RG 


;G0, GET RKCS. ER, DS 


ERROR 


5 


;DPL BIT OF RKDS IS SET, CHECK DRIVE POWER 



CLR 

BIT 

BNE 

DELAY 

INC 

BNE 

nov 

ERROR 



R1 

#100, aRO 

TST4 

,11 

R1 

4S 

iRKDS.SREGO 

16 



jOIO R/W/S RDY BIT SET? 

j;YES. EXIT 

;TINE DELAY 

jWAIT FOR R/W/S RDY 



GET RKDS 

R/W/S RDY DID NOT SET AFTER 

DRIVE RESET. DRIVE RESET WAS DONE 

TO CHECK 'DPL'BIT . THIS TEST 

IS NOT FOR CHECKING DRIVE RESET. 

U niGHT WANT TO USE THE TEST PROVIDED 

FOR CHECKING DRIVE RESET. 



•TEST 4 



CHECK THAT 'DRIVE UNSAFE* IS CLEAR, 'HDEN' IS SET, 'WPS' IS CLEAR 



SCOPE 
CNT. RESET 



nov DRIVAD.aRKDA 

nov aRKDS.RO 

BIT #2000, RO 

6EQ 1S 

JSR PC,GT3RG 

ERROR 6 



60, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY* DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR i IF IT 
OCCURS GO BACK TO TEST 10 
SET DRIVE ADDRESS 

.GET RKDS 
IS 'DRU' BIT OF RKDS SET? 
NO 

GO. GET RKCS. ER. DS 

'ORU' BIT OF RKDS IS SET. CHECK 

DRIV BY PUTTING RUN/LOAD SW TO LOAD 
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CZRKKF.pn 21-FEB-78 08:51 
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T4 CHECK THAT 'DRIVE UNSAFE' IS CLEAR. 'HDEN' IS SET, 'WPS' IS CLEAR 



SEC 0045 













U JC f vv 




wv vO 


WW 1 ww*t 


??77 


00S410 


01 7737 






1 W*f WW» 










WW c w 


032777 


C J w 1 




001^03 

WW 1 "tw J 


C JVC 




00^7^7 

VwS r J f 


C JO J 


WW 


1 n& 1 1 ^ 

1 wH 1 1 


??84 






C Jw ^ 






?^86 






C f 












2389 

C JU ' 


















2392 






2393 


005436 

WW JU 


000004 

w WW w w~ 


2394 


005440 

V w ^ w 


10441 3 


2395 






2396 






2397 






2398 






2399 






2400 






2401 






2402 






2403 






2404 


005442 


013777 


2405 


005450 


105777 


2^06 


005454 


100403 


2407 


005456 


004737 


2408 


005462 

W W ^ ~ w t 


104010 

1 W~ W I w 


2409 






2410 






241 1 






2412 






241 3 






2414 






2415 


005464 


000004 

w w w w w^ 


2416 


0C5466 

w w ^ ~ w w 


013777 


241 7 


005474 


005001 

WW ^ W W 1 


2418 


005476 


032777 


2419 


005504 


001006 

WW I w w w 


2420 


005506 

W W ^ ^ WW 


005201 


2421 


005510 


001372 

WW ■ ^ t 


2422 

fc ^ fc 


005512 


017737 


2423 


005520 


104011 


2424 






2425 






2426 






2427 






2428 






2429 







004000 
173712 

000040 
020774 



001162 
173700 



IS: 



2S: 



BIT 
BNE 
NOV 
ERROR 

BIT 
BEQ 
JSR 
ERROR 



#4000, RO 
2S 

SRKDS.SREGO 

7 

«40.aRKDS 

TST5 

PC.GT4RG 
114 



THEN BACK TO RUN 
IS 'HDEN' BIT SET? 
YES, BRANCH 
GET RKDS 

ERROR, 'RKOS' BIT IS NOT SET 

IS 'yPS' CLEAR? 
;YES, EXIT 

GET RKCS, ER, DS, DA 

'WPS'-yRITE PROTECT STATUS- BIT OF 

OF RKDS SHOULD BE CLEAR, IF THIS DRIVE 

IS yRITE ENABLED. CHECK % SEE IF THIS 

DRIVE IS WRITE ENABLED, IF IT IS NOT, 

yRITE ENABLE IT. 



•TEST 5 



CHECK THAT 'DRIVE READY' IS SET IN RKDS 



ST5: 



SCOPE 
CNT. RESET 



001350 
173652 

020774 



173670 



•10V DRIVAD,aRKDA 

TSTB aRKDS 

BNI TST6 

JSR PC,GT4RG 

ERROR 10 



GC, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR ft IF IT 
OCCURS GO BACK TO TEST 10 
ADDRS THE DRIVE 
IS 'DRY' SET? 
;YES. OK 

GO, GET RKCS. ER, DS, DA 
•DRY' NOT SET 



•TEST 6 CHECK THAT 'SOK' 

;* THIS TEST CHECKS THAT 
;• 'SOK' BIT CAN SET, IF 



BIT CAN SET 

yiTHIN A CERTAIN TIME 

IT DOES NOT AN ERROR IS REPORTED 



001350 
000400 



173644 
173622 



173610 001162 



TST6: SCOPE 

MOV DRIVAD.aRKDA 

CLR R1 

^S: BIT #400, aRKDS 

BNE TST7 

INC R1 

BNE 1$ 

NOV aRKDS, SRE60 

ERROR 11 



ADDRS THE DRIVE 

INITIALIZE COUNT FOR TIMING WAIT LOOP 

IS SOK SET? 

;EXIT 

NO, WAIT 

WAITED LONG? 

GET RKDS 

WAITED LONG BUT 'SEC OK' BIT DID NOT 
SET 



•TEST 7 



CHECK THAT 'SECTOR COUNTER' CAN COUNT FROM 0-13 



H < 
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CZRKKF.PII 21-FEB-78 08:S1 17 CHECK THAT 'SECTOR COUNTER' CAN COUNT FROM 0-13 



SEQ 0046 











C H J 1 
















?43'> 








?A34 
















c JW 








?437 








?43fi 

C JO 








?439 








?4A0 








2441 








?44P 








2443 








2444 








2445 


005522 


000004 

wWw ww~ 




2446 


005524 


104413 




2i47 








2448 








2449 








2450 








2451 








2452 








2453 








2454 








2455 








2456 


005526 

WW ^ ^ b U 


013777 


001 350 


2457 


005534 


013700 

V 1 ■ WW 


001 326 


2458 


005540 

WW ^ w 


005037 

WW ^ w J f 


001 356 

WW \ ■J J\d 


2459 


005544 

W W ^ ~ ~ 


005005 

WW ^ WW J 




2460 








2461 


005546 


012704 


1 77764 


2462 


005552 


012703 


000001 

W W W W W 1 


2463 








2464 








2465 


005556 


005037 


001360 


2466 

c ^ u w 








2467 


005562 

WW ^ 


005237 


001356 


2468 


005566 

W W ^ J \J\J 


001440 




2469 


005570 


005237 


001 360 

WW 1 ^ww 


2470 


005574 


001441 




2471 








247' 


005576 


011001 




2473 


005600 

WW ^ w w w 


032701 


000400 


2474 


005604 

WW wV/~ 


001771 




2475 


005606 

WW ^ W WW 


021001 

W^ I WW I 




2476 


005610 


001362 




2477 


005612 


042701 


177760 


2478 


005616 

W V ^ W 1 w 


001357 




2479 








2480 


005620 


005204 




2481 


005622 


001447 




2482 


005624 


005205 




2483 


005626 


001431 




2484 


005630 


011002 




2485 


005632 


032702 


00040G 



TST7: 



1$: 



2$; 



3S: 
4S: 



THIS TEST CHECKS THAT THE SECTOR COUNTER CAN COUNT FROM 
0-13 

1) FIRST. FOR INITIALIZING PURPOSES THERE IS A TIMED LOOP 
DURING UHICH SECTOR COUNTER SHOULD COUNT DOUN TO 0. IF THIS 
IS NOT DONE AN ERROR IS REPORTED 

2) AFTER A COUNT OF 0 IS REACHED, THE PROGRAM WAITS 
FOR A CERTAIN TIME. DURING UHICH THE SEC COUNTER 

IS SAMPLED. IF THE COUNTER DOES NOT CHANGE WITHIN THIS 
TIME PERIOD AN ERROR IS REPORTED. 

3) UPON FINDING THAT THE COUNTER HAS CHANGED. IT IS CHECKED 

IF IT INCREMENTED CORRECTLY. IF IT DID NOT AN ERROR IS REPORTED 

4) IF IT INCREMENTED CORRECTLY. THE PROGRAM AGAIN WAITS IN A 
LOOP TILL THE COUNTER CHANGES. (STEPS 2.3.4 ARE REPEATED 
TILL THE COUNTER COUNTS UP TO 13) 



SCOPE 
CNT. RESET 



MOV DRIVAD.aRKDA 

MOV RKDS.RO 

CLR INDX1 

CLR R5 

MOV #-14. R4 

MOV #1.R3 



CLR INDX2 

INC INDX1 

BEQ 6$ 

INC INDX2 

BEQ 7S 

MOV aRO.RI 

BIT #400, R1 

BEQ 2S 

CMP aRO.RI 

BNE IS 

BIC #177760. R1 

BNE IS 

INC R4 

BEQ TST10 

INC R5 

BEQ 8S 

MOV aR0,R2 

BIT #400. R2 



IS 



GO. DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDV' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR I IF IT 
OCCURS GO BACK TO TEST 10 



INITIALIZE 

'COUNT' - TO TIME 'ERROR 35* 
INITIALIZE 'COUNT' - TO TIME 
'ERROR 36' (WAIT LOOP) 
INITIALIZE 'COUNT' - FOR THE 12 SECTORS. 
R3 CONTAINS THE 'NEXT' COUNT OF SEC-CNTR 

THE 'PREVIOUS' COUNT OF SEC-CNTR 
THE 'PRESENT' COUNT OF SEC-CNTR 
COUNT' - TO TIME 
'ERROR 34' 
FOR 'ERROR 35' 
BRANCH t REPORT ERROR IF WAITED LONG'' 
KEEP TIMING FOR 'ERROR 34' 
BRANCH t REPORT ERROR IF WAITED LONG? 



R1 CONTAINS 
R2 CONTAINS 
INITIALIZE ' 
(WAIT LOOP) 
KEEP TIMING 



GET RKDS 

IS 'SOK' SET? 

NO, WAIT FOR IT TO SET 

MAKE SURE THAT 2 CONSECUTIVE 

READINGS OF SEC-CNTR ARE SAME 

YES, MASK OUT NON-SEC CNTR BITS 

IS IT SECTC'» 0. IF NOT LOOP BACK I 

WAIT FOR SECTOR 0 

KEEP TRACK OF SECTORS CHECKED 

.•EXIT. IF ALL SECTORS CHKD 

KEEP TIMING FOR 'ERROR 36' 

BR I REPORT ERROR IF WAITED LONG 

GET RKDS 

IS SOK SET? 



MD-ll-CZRkKF 
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T7 CHECK THAT 'SECTOR COUNTER' CAN COUNT FROM 0-13 



SEQ 00A7 



3 AAA 


UU jO jO 


AA1 77P 


3iR7 




npi nnp 

Uc 1 UUc 


JLHH 
c**00 


nncAAP 

UU jOhc 


Am X7(\ 








OLQn 


UU jOPU 


UcUcU 1 


C*« T 1 


UU jOPc 


ftfti 7AA 
UU 1 ' 0*1 




UUPOP*! 


fxononx 

\Jcvcv3 




UUPOPO 


oni OPT 

UU 1 Uc J 










UU JOOU 


UU JcU J 




AACAAP 
UUPOOc 


nnspm 

UUjcU I 


JLQ7 




AACAAC 


C*» TO 




AAA7CA 
UUU' Jt 








pson 




mm ^7 

U 1 U 1 3 r 






1 Uh U I c 








CJyJj 




uUU'tc 1 








CJvJ 




m 77^7 






1 ftifti 1 


CJvi 






C JKiO 




\J\I\JH 1 


7S0Q 












PS1 1 




m n^^7 


PS1 ? 


nns/pp 


1 n^m ^ 


PS1 ^ 






PS1 i 






PS1 s 


nns7P£ 


finnan A 


PS1 






PS1 7 


CnS7PA 


V 1 \J J J 1 


PS1S 


nos7^p 






nOS7^A 
















PSP? 


nns7i0 

\J\f J t H\J 




PSP7 
























PSP7 












PSP9 












C J J * 






C J JC 


















C J J J 






2536 






2537 






2538 






2539 






25AO 






25A1 


005746 


013704 



5t: 



6S: 



7S: 



8S: 



9$: 



BEQ 
CHP 
BNE 
BIC 
CHP 
BEQ 
CHP 
BNE 

INC 
INC 
CLR 
BR 

nov 

ERROR 
BR 

nov 

ERROR 
3R 

nov 

nov 

ERROR 



BR 

nov 
nov 

ERROR 



4t 

aR0.R2 
At 

#1 77760. R2 

R2.R1 

4t 

R2.R3 
9S 

R3 
R1 
R5 
3$ 

RI.SREGO 
12 

TST10 

aRKDS.SREGO 
11 

TST10 

R2,tREG0 
R3,SREG1 
13 



TST10 

R3,$REG0 
R2.tREG1 
U 



BR 



St 



NO. WAIT FOR SOK 

nAKE SURE THAT 2 CONSECUTIVE 

READINGS OF SEC-CNTR ARE SAnE 

nASIC NON-SEC-CNTR BITS 

HAS SEC CNTR INCREnENTED? 

NO, WAIT FOR IT TO CHANGE 

YES, DID IT INCREMENT CORRECTLY^ 

NO - REPORT ERROR 

INCREnENT "NEXT COUNT" 
INCRENENT "PREVIOUS COUNT" 
INITIALIZE AGAIN FOR TiniNG 'ERROR 
GO t CHECK THE NEXT SECTOR COUNT 



36' 



GET 'SEC CNTR' 

WAITED LONG, BUT SECTOR 

DID NOT COUNT TO 0 

;EXIT 



COUNTER 



GET RKDS 

UAITED LONG, BUT 'SOK' BIT DID 

NOT SET 

.EXIT 

GET SEC CNTR (PRESENT COUNT) 

GET "NEXT COUNT" 

UAITED LONG, BUT THE SECTOR 

COUNTER DID NOT INCREnENT FROn 

THE PRESENT COUNT TO THE NEXT COUNT 

;EXIT 

GET 'NEXT COUNT' (SEC CNTR SHOULD BE THIS) 
GET PRESENT COUNT (WHAT SEC CNTR WAS) 
SEC CNTR INCREnENTED WRONG, DID 
NOT INCREnENT FRON PRESENT COUNT 
TO NEXT COUNT 



.-•TEST 10 CHECK THAT SC=SA CAN BE GENERATED 

THIS TEST CHECKS THAT SC-SA CAN BE GENERATED FOR 
;• EVERY SECTOR 



TST10; 



SCOPE 
CNT. RESET 



nov 



DRIVAD,R4 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TinE 
IF THE 'CNTRL ROY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR nESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR I IF IT 
OCCURS GO BACK TO TEST 10 



005752 


01 3700 


001 326 




MOV 


RKD^ RO 

n ^ 1/ ^ f n V 




005756 


012705 


1 77764 




MOW 






005762 


010477 


173352 


1 s ■ 






Annppcc TUP hDiuF 


005766 


005005 






L L n 


RS 




005770 


005205 




2S- 


INC 


R5 


^ttr 1 ininu run Cn~Un 


005772 


001410 










RFPnRT PRRnn ip uaitph i nkii: 


005774 


01 1001 






nv w 


aRO R1 


TiFT RKHC 
UC 1 n^l/d 


005776 


032701 


000020 




BIT 


#20. Rl 


IS SC=SA SET? 


006002 


001772 






BEQ 


2S 


NO, WAIT FOR IT 


006004 

V V \0 V V ~ 


005204 




4S: 


INC 


R4 




006006 


005203 






INC 


R3 


ARF ill ^FTTHR^ ruFPKPn PHB cr-CA 


006010 


001364 






BNE 


IS 


NO GO £ CHFCK NFXT 


006012 


000406 






BR 


TSTII 




0060U 


110437 


001162 


3S: 


MOVB 


R4.SREG0 


GET SECTOR ADDRFS^ 


006020 


010137 


001164 




NOV 


R1.SREG1 


■GET RKDS 


006024 


104015 






ERROR 


15 


COULD NOT GET SC=SA FOR THIS 














•SECTOR ADDRESS' 


0C6026 


0C0766 






BR 

» 


4S 


■GO CHK FOR THE REST 








.••TEST 


11 


CHECK THAT 'K/W/S RDV IS SET I 'SIN' IS CLEAR 
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2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

258A 

2585 

2586 

2587 

2588 

2589 

2590 

^591 

2592 

2593 

2594 

2595 

2596 

2597 



J 4 

NACYll 30A(1052) 21-FEB-78 08:58 PAGE 49 
T10 CHECK THAT SC=SA CAN BE GENERATED 



SEO 0048 



006030 
006032 
006034 
006042 
006044 
006050 
006054 
006056 
006060 
006062 
006064 
006066 
006072 
006074 
006100 
006102 
006106 



000004 
104413 
013777 
005001 
017700 
032700 
001007 
005201 
001376 
005201 
001367 
010037 
104016 
032700 
001403 
004737 
104001 



001350 173276 

173256 
000100 



TSTll 

U: 
3S: 



001162 
001000 
020774 



; SCOPE 
CNT.RE 
MOV 
CLR 
NOV 
BIT 
BNE 
INC 
BNE 
INC 
BNE 
MOV 
ERROR 
BIT 
BEQ 
JSR 
ERROR 



SET 

DRIVAD.iRKDA 

RI 

aRKDS.RO 

#100. RO 

2S 

RI 

3$ 

RI 

U 

RO.tREGO 

16 

#1000,R0 

TST12 

PC.GT4RG 

1 



GO, DO CONTROL RESET 
ADDRESS THE DRIVE 

GET RKDS 

IS R/y/S RDY SET? 
YES. BRANCH 
INCREASE LOOP TIME 
FOR DRIVE RESET OF HEADS 
WAITED LONG ENOUGH? 
IF NOT LUP BAK I WAIT 
GET RKDS 
.R/W/S RDY SHOULD BE SET 
2$: BIT #1000, RO :IS SIN CLEAR? 

;YES, EXIT 
GET RKCS,ER,DS.DA 
'SIN' SHOULD HAVE BEEN CLEAR 
IT WAS NOT CLEAR 
NEXT TEST IS GOING TO CHECK 
DRIVE RESET, SIN SHOULD BE 
CLEARED THEN. IT WILL BE CHECKED 
THERE. 



.••TEST 12 



CHECK 'DRIVE RESET' 



;*THIS TEST CHECKS THE VERY BASIC DRIVE RESET LOGIC. 
;*SINCE THE HEADS ARE AT CYLINDER 0 (GOING INTO THIS 
.••TEST) DRIVE RESET RETRACTS THEN BACK BEYOND CYLINDER 0, 
:^AFTER WHICH THEY ARE PUSHED FORWARD TO CYLINDER 0 AGAIN. 
;^IN THE LATER PART OF THIS PROGRAM THERE IS A DRIVE RESET 
:*TEST WHICH DOES THE RESET FROM LAST CYLINDER. 



006110 000004 



TST12: SCOPE 



K 4 
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CZRICKF.PII 21-fEB-78 08:51 T12 CHECK 'DRIVE RESET' SEQ 0049 



C J TO 


onAi 1 7 










CNT. RESET 




•TiO DO rONTROl RFSFT 

« wU . i/u cuninui ncJu ■ 




















;THIS IS A CALL FOR THE 'CNTRL- 


CuUv 


















■RFSFT' ROUTINF A fONTROI RFSFT IS 


cou 1 


















•ISSUFD AND AFTFR A CFRTAIN TlfF 


couc 


















■IF THE 'CNTRL RDY' DOES NOT SET 

gA* wiving ol/l k/WL*/ IV Wi 


CUV V 


















■AN ERROR IS REPORTED NOTE THAT 




















■THE PC IN ERROR MESSAGE IS THE 
■PC UHERE 'CNT. RESET' IS LOCATED 

■nv'vb vni«nvwbi Aw kWvniLir* 


CUV J 


















7606 

COvO 


















'THIS IS A VERY BASIC ERR t IF IT 

(■■■Aw Aw n vbni Wl WAV L***^ V A* A* 


C WV f 


















■OCCURS GO BACK TO TEST 10 

(Wvvwnw wW wnvn iw ibwi iw 


7608 


VVU 1 1 


01 5700 


001 557 

WW I 






nu V 


prrc DO 






7609 


0061 70 


005004 

Ww J WW~ 








tun 


R4 




■INITIALIZ COUNT - TO TIME ERROR 


7610 


006177 


015777 


001 550 

wW 1 V -i' w 


1 75210 




nu V 






■ADDRESS THE DRIVE 


761 1 


0061 30 


017710 

W I C ' 1 w 


000015 






nu w 


w 1 J « Bn V 




■'DRIVE RESET' GO 


7617 


0061 34 


104417 








V n K ^ n w ■ 






•GO CHECK IF CONTROL RDV IS SET 


761 1 


















•IF SO. SKIP THE EROR MESSAGE. 
•CNTRL RDY DID NOT SET AFTER 


7614 


0061 36 


104021 








ERROR 

t n wn 


21 




2615 


















.'SENDING CYL ADDR TO THE DRIV. 


2616 


















.'ADD ACK' SHOULD HAVE COME BACK 


2617 


















.FROM DRIVE. THEREUPON SETTING 'CN ROY' 


2618 


006140 


012705 


177776 




2$: 


n \j w 


#-2 R5 




;SET UP DELAY COUNTER 


2619 


006144 


052777 


000100 

WWW ' WW 


173154 


6$: 


BIT 


#100 aRKDS 

w 'WWfVnf\ww 




; CHECK FOR R/U/S READY 


2620 


0061 52 


001402 








RFQ 

DC W 


f6 






7621 


0061 54 


000157 

WW t J * 


006176 

W WW 1 * w 






JHP 


TC 








006160 


005204 

WW ^ w^ 








1 flu 


R4 

n "t 






7625 


00616? 


001570 

WW 1 ^ ' w 








BNE 

Drab 


6t 

W • 






262A 


006164 

www I w~ 


005205 








INC 


R5 

n ^ 






2625 


006166 


001566 

WW 1 ^ww 








RNF 


6$ 






2626 


006170 

WWW 1 1 w 


004737 


020774 






JSR 


pr GT4RG 

r V #Wi ^»^w 




■GO. GET RKCS. ER. DS. DA 

( W ^F # W k ■ ' • ^ W ( b ■ * # W W ( Ir r 1 


2627 


0061 74 


104026 








FRROR 

t n nun 


26 

C W 




■R/U/S RDY DID NOT SET AFTER 


2628 


















.■DRIVE RESET 


2629 

C Wfc ' 




















2650 


0061 76 

WW ' • w 


032777 


001000 

W W I www 


173122 


3S: 


BIT 

DAI 


#1000 aRKDS 

■ >www#snffM/«# 




•DID SIN SET? 

#lrAV WAV* wb>« 


2631 


006204 

W Www W~ 


001403 








BEQ 


5$ 




;N0. BRANCH 


2632 


006206 


004737 


020774 






JSR 


PC GT4RG 




;G0. GET RKCS.ER.DS.DA 


2633 


006212 


104001 








FRROR 

t n n wn 


1 




;SIN SET, AFTER A 


2634 


















•DRIVE RESET. 


2635 


006214 

Wwb 1 ~ 


032710 


140000 

1 ^ w w w w 




5$: 


BIT 


#140000 aRO 

W ItWWWW^W"W 




;UAS 'ERR' BIT OR 'HE' BIT SET? 


2636 


006220 


001405 










4S 




;NC 


2637 


006222 


004737 


020774 






JSR 

^ J n 


PC GT4RG 




;G0. GET RKCS. ER, DS, DA 

( W V 0 W W ■ ■ ■ wW# iFW^ IF" 

:'ERR' OR 'HE' BIT SET WHILE DOING 
.'DRIVE RESET 


2638 


006226 


104022 








ERPQR 

t n ™ wn 


22 




2639 


















7640 


006230 

W W Wfc ^ W 


022710 

Wb ( > w 


000214 




4$: 


CNP 


#214 ARO 




.'DOES RKCS STILL CONTAIN THE 
; 'DRIV RES* BITS 


2641 


















2642 


006234 


001406 

W W • W \^ 








BEO 


TST1 3 




;;YES. EXIT 


2643 


006236 


012737 


000214 


001162 




nw V 


#214 IRFGO 

i^/#ntww 




;GET EXPCTD RKCS 


2644 


006244 

WWfc ~ ~ 


011037 


00116^ 






Plv " 


aRO SRFG1 

wn V « #nb u 1 




;GET RKCS. RECVD 


2645 


006250 

WWfc 


104024 








FRROR 

u n wn 


24 




;N0 - RKCS SHOULD CONTAIN THE 'DRIV RES' 


2646 


















.-FUNCTION, ERROR IF DIFFERENT. 


2647 




















2648 




















2649 










.••TEST 


13 


CHECK 'SEEK' 


TO 


CYLINDER 0 


2650 












;♦ THIS 


TEST CHECKS 


THE 


SEEK LOGIC DOING SEEK TO CYLINDER 0. 


2651 












;♦ NOTE 


THAT SINCE THE 


HEADS ARE ALREADY ON CYLINDER 0, NO 


2652 












:* HEAD 


NOVENENT IS 


INVOLVEDN AND THE STRESS IS ON THE BASIC SEEK 


2653 












:• LOGIC. 
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T C T 1 7 • 








U0OC3£ 


AAAAA/ 
00000* 






SCOPE 






00O£iH 


i Ay / 1 1 








CNT. RESET 


















































£000 
















2ooi 
















^00£ 
































































COOO 


AAA? C A 


1 AAA 01 
1 Ummc I 








T c T C 1 M 




dbOf 
















£000 


AAA^AA 

UUocOU 


A1 77AA 

01 3r UU 


AA1 773 
UUl 33C 






MAU 

nuw 


orrc DA 


£00V 


UUOcO*! 


A1 7777 


AA1 7CA 
UUl 33U 


1 77AAA 
1 f 3U*iO 




MAU 

nuv 




















COf 1 


uUOc 1 c 


A1 571 A 
U 1 C f 1 U 


AAA01 1 






MAU 

nuw 


#1 1 aoA 


CO r c 


UUOc rO 


1 U*»*t 1 C 












9A7T 
CO r J 
















CO ft 


AAAYAA 


1 AA A51 
1 UmUc 1 








CDDAD 
CNNUK 


31 
C 1 


5A7^ 
CO f 5 
















CO ft) 
















0A77 

cor r 
















cOro 


AAA TA3 
UUO^Uc 


AAC AAQ 
UU3UU J 






3C • 
C9 : 


n D 
ILK 




CO' V 


AAA tCiL 
UUO jUm 


A75777 
03c Iff 


AAA1 AA 
UUU 1 UU 


1 77A1 A 




BIT 


#iAn BDrnc 

w 1 UU (■NAUa 


coOU 


AAA71 0 
vVoj 1 C 


AA1 AAC 
UU 1 UU5 








one 


7* 
3» 


coe 1 


AAA71 A 
UUO J 1 


AACOA"? 
UU5cUj 








1 NL 


DC 


COOC 


AAA71 A 


AA1 775 

UU 1 J r C 








BMP 

one 


C 9~C 


COB3 


AAAT^A 
UUO JCU 


AAA 777 


A3A77A 
UcUr f H 






1 CD 
Jon 


Pr ftT£DR 
r L U 1 "tnU 


cOOh 


AAAT7^ 
UUO JC*» 


1 AAA5A 




• 




FDDAB 


CO 


cOD7 


AAA7?A 


A75777 
U jc f f < 


AA1 AAA 
UU 1 UUU 


1 73773 
\ 1 CI 1 C 


7t • 

3» • 


BIT 


ifiAAA aRKnc 


cOOO 


AAA7?^ 
UUO J j't 


AA1 AA7 
uU 1 *lU J 










At 
o* 


'3AB7 
cOOr 


AAA 77a 
UUO^ jO 


AAA 777 
UUm f j f 


A3n77A 
UcUi f 1 






ICR 


#\j i"tnu 


cOOO 


AAA7Z7 


1 AAAAI 
1 UhUU I 








PDDOD 


1 
1 


OAHQ 
COOT 
















COtU 
















COT 1 
















COTC 
















coy 3 


AAA7AA 
VVOjtH 


\j3C I \ \J 


1 AAAAA 

1 tuuuu 




At • 

09 • 


BIT 


W |tUUUU«VnU 


cOt^ 


AAA7CA 
UUO j7U 


AA1 AA7 
UU 1 mUj 












cOtj 
















cOtO 


AAA7^7 
UUO J?C 


AAA777 
UU*» 1 jl 


A5A77A 
UcU 1 1 H 






1 CD 
Jon 


r L # U 1 Hnu 


7A07 


UUO jjo 


1 AAA33 








FDDAD 


00 
cc 


coto 
















cOtt 


AAA7AA 


AAC777 
UU5 f ' f 


1 7J7LL 
\ 1 CI •»•• 






TCT 




C'W 


AAATAA 
UU0.30*> 


AA1 A 07 








BFQ 
DC U 




£ f Ul 


AAA7AA 
UUO jOO 


AAA777 
UU*i 1 jf 


A31 AA3 
Uc 1 UUc 






JSR 


PC GT3RG 


c fvc 


nnA^79 

UUOOr c 


1 U*iUc J> 








ERROR 


23 


CIV J 




















022710 


000210 




5S: 


CHP 


#210, aRO 


2705 


006400 


001406 








BEQ 


TST14 


2706 


006402 


012737 


000210 


C01162 




MOV 


f210,SREG0 


2707 


006410 


011037 


001164 






nov 


aR0,SREG1 


2708 


006414 


104024 








ERROR 


24 


2709 
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;G0. DO CONTROL RESET 
.•THIS IS A CALL FOR THE 'CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
.ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDV DOES NOT SET 
:AN ERROR IS REPORTED. NOTE THAT 
.THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
.•THIS IS A VERY BASIC ERR I IF IT 
.•OCCURS GO BACK TO TEST 10 
;G0 CHECK IF SIN SET. IF SET 
;A DO DRIVE RESET TO CLEAR IT 

;ADDRESS THE DRIVE 

.••SEEK' GO 

.•GO CHECK IF CONTROL RDY IS SET 
;IF SO. SKIP THE EROR MESSAGE. 
.••CNTRL RDY' DID NOT SET AFTER SENDING 
;CYL ADOR TO THE DRIVE, 'ADD ACK' 
.•SHOULD HAVE COME BACK FROM THE 
.•DRIVE. THEREUPON SETTING 'CNTRL RDY' 

;OID R/W/S RDV BIT SET? 

;YES. BRANCH 

.-WAITED LONG ENOUGH? 

;IF NOT. LUP BAK % WAIT 

;G0. GET RKCS. ER, DS. DA 

;R/U/S RDY DID NOT SET AFTER SEEK 

;DID SIN SET? 

;N0. BRANCH 

;G0, GET RKCS.ER.DS.DA 
.•SIN SET ON DOING SEEK 
:T0 CYL 0 NOTE THIS IS THE 
.-FIRST TIME THE HEADS HAVE 
:BEEN MOVED 

;WAS 'ERR' OR 'HE' BIT SET? 



;G0. GET RKCS. ER, DS. DA 

:'ERR' OR 'HE' BIT SET WHILE DOING 'SEEK' 

.WAS ANY BIT IN RKER SET? 
.•NO 

;G0. GET RKCS. ER. OS 

.-RKER SHOWS AN ERROR BIT, CHECK 

;DOES RKCS STILL CONTAIN 'SEEK' FUNCTION 
;;YES, EXIT 
;GET EXPCTD RKCS 
;GET RKCS RECVD 

;N0. RKCS SHOULD BE STILL CONTAINING 
.-'SEEK' FUNCTION ERROR - IF IT CHANGED 
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SEQ 0051 



10 










071 1 










071 0 










071 1 










071 / 










071 ^ 










571 A 










071 7 










071 fl 










071 O 










070ft 










0701 


OOOh 1 0 


ftftftftft/ 






0700 

CI ic 


ftftiL/ Oft 


1 ft// 1 ? 

1 Uhh 1 3 






070'* 










070/. 
£1 










070* 










070A 
Cf CO 










0737 
CiC' 










070a 
C r CO 










070O 
c f CT 




















07'TI 










Cf jC 


UUOhcc 


1 Uhhc I 






07?? 










07?/. 


UUOhch 


UUH 131 


Uc 1 3Uh 




cf IJ 


UUOHjU 


1 UhUcO 






07?A 










07?7 

Cf Jf 


UUOh JC 


ftftcftnc 

UU3UU3 






C f JO 


UUOhjh 


ftl ?777 

U 1 J f f f 


ftfti ?^ft 
UU 1 J3U 


1 73A7A 
1 I cOr O 


07?Q 

c f jy 


ftftAAA3 
UUOhhc 


\JjCf f 1 


UUU 1 UU 


1 7DA7ft 
1 f cOf U 


c f •lU 


ftftAACft 
UUOhjU 


U 1 jr U 1 


ftfti ?3A 
UU 1 JcO 






UUOH3H 


ni 5777 


nnnni i 


1 1 cOjU 




UUOHOc 


U JC 1 1 1 


UUU 1 UU 






UUOhOO 


UU 1 HU3 






C f HH 


ftftAA7ft 


UU JCU3 






?7A* 


UUOh f c 


1 UU J 1 J 






07£A 

C f HO 


UUOH f H 


UUh f jI 


n3inn3 

Uc 1 UUc 




07A7 
C f* f 


ftftikCftft 


1 UhUcj 






C f HO 










C > HT 










CfJV 


UU03UC 


UUh r jr 


n3i^?A 

Uc 1 H jO 




c r J 1 




1 UhU I O 






57S? 

c f JC 










CfJJ 










C f JH 










CI J J 










e r 30 










CfJf 










C r jO 










c f jy 










?7M 










2761 










2762 










2763 










2764 










2765 











.••TEST U CHECK R/U/S RDY IS CLEAR WHEN HEADS ARE IN NOTION 

•THIS TEST CHECKS THAT R/U/S DOES GET CLEARED 
•WHEN THE HEADS ARE IN NOTION. SINCE 'NOVE L' ON 
•H7700 (RKOS) GENERATES THIS SIGNAL. ABSENCE OF 
•R/U/S RDV-CLEAR COULD MEAN A FAULT ON n7702 
•WHERE 'HOVE L' IS GENERATED. 

•NOTE THIS IS THE FIRST TIME HEADS ARE MADE TO MOVE BY SEEKING 
•TO CYLINDER 2. 



TSTU: 



1$: 



2S: 



SCOPE 
CNT. RESET 



TST.SIN 

JSR 
ERROR 

CLR 

nov 

BIS 

nov 
nov 

BIT 
BEO 
INC 
BPL 
JSR 
ERROR 



PC.DRESET 
26 

R5 

DRIVAD.BRKDA 
#100.aRKOA 
RKDS.RI 
fll.aRKCS 

#100. aRi 

2% 

R5 

IS 

PC.GT3RG 
25 



GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIHE 

If THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR t If IT 

OCCURS GO BACK TO TEST 10 

CO CHECK IF SIN IS SET 

IF SET DO DRV-RESET TO CLR IT 

HAKE SURE HEADS R ON CYL 0 

R/W/S RDY DIDN'T SET 

AFTER THE ABOVE DRV RESET 



SEEK CYLINDER 2 



JSR 
ERROR 



PC.TSTRWS 
16 



SEEK. GO 

DID R/W/S RDY CLR? 
YES. BRANCH 



: R/W/S RDY WAS NOT CLEAR WHEN HEADS 
.-WERE SEEKING TO CYLINDER 2 

GO. WAIT FOR R/W/S RDY TO SET 
R/W/S RDY DID NOT SET AFTER SEEK 
WAS TRIED TO CYLINDER 2 (ABOVE). 
NOTE THIS WAS THE FIRST TIHE A SEEK 
WAS TRIED TO A CYLINDER OTHER THAN 
0. 



;«TEST 15 CHECK 'WRITE* FORMAT FUNCTION-CYLINDER 0. SECTOR 0 

;*THIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FWT 
:*FUNCTION. ON ISSUING A WRT FHT. THE FOLLOWING IS CHECKED 
:*1) CNTRL RDY WAS CLEARED AS GO WAS SET. 

:*2) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION 



006510 
006512 



000004 
104413 



006514 
006516 



104421 
012703 



033342 
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2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 



N 4 
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T15 CHECK 'WRITE' FORMAT FUNCTIOM-CVLlK'OER 0, SECTOR 0 

♦3) IF 'HE' OR 'ERR' BIT SET? 
*4) IF RKDA INCREMENTED CORRECTLY » ROM 0 TO 1? 
*5) IF RKUC OVERFLOWED CORRECTLY TO 0? 
*6) IF RKBA INCREMENTED CORRECTLY BY 2? 
*7) IF ANY BIT IN RKER SET? 

*8) IF THE 'WRT FMT' FUNCTION BITS ARE STILL IN THE RKCS? 
•NOTE THAT ONE WORD '125252' WAS WRITTEN ON SECTOR 
•0 t IT WILL BE CHECKED IN THE NEXT TESTS. 



SEO 0052 



TST15: 



SCOPE 
CNT. RESET 



TST.SIN 

nOV #0UTBUF.R3 



IS 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE "CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR t If IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IF SET, DO DRIVE RESET TO CLR IT 



THIS CODE SETS UP A 256 WORD BUFFER 
WHICH WILL BE USED TO WRITE 1 SECTOR 
ON THE DISK 
1ST WORD 000001 
2N0 WORD }77777 
3RD WORD 0000C2 
4TH WORD 177776 



2'S COMPLEMENT 
OF ABOVE 



253RD WORD 
2S4TM WORD 
2SSTH WORD 
256TH WORD 



000177 
177601 
000000 
125252 



006522 


012700 


000001 






MOV 


#1,R0 


.-SET COUNT 


006526 


010023 






9$: 


MOV 


R0,(R3)* 


.-SET UP DATA WORDS 


006530 


010013 








MOV 


R0.(R3) 




006532 


005423 








NEG 


(R3)« 




006534 


005200 








INC 


RO 




006536 


022700 


000200 






CMP 


«200,R0 


;DONE? 


006542 


001371 








BNE 


9$ 




006544 


005023 








CLR 


(R3)* 


:SET 255TH WORD TO 0 


006546 


012713 


125252 






MOV 


#125252 .aR3 


:SET 256TH WORD 


006552 


012703 


033342 






MOV 


fOUTBUF,R3 


.-RESET POINTER TO OUTBUF 


006SS6 


013701 


001332 






MOV 


RKCS,R1 




006562 


013702 


001336 






MOV 


RKBA,R2 > 




006566 


010312 








MOV 


R3,aR2 


;FROM HERE-SET UP CURRENT ADDRESS 


006570 


012777 


177400 


172536 




MOV 


#-400,aRKWC 


.SET UP WORD COUNT 400 WORDS 


006576 


013777 


001350 


: 72534 




MOV 


DRIVAD,aRrDA 


.SET UP DISK ADDRS. SECTOR 0, CYLINDER 0 


006604 


012711 


002003 






MOV 


#2003, aRi 


.•WRITE FORMAT, GO 


006610 


105711 






1$: 


TSTB 


aRi 


;WAS 'CNTRL RDY' CLEARED AS 60 WAS SET? 
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2822 


006612 


100003 








BPL 


2S 


YFS BRANCH 


2823 


006614 


004737 


021002 






JSR 


PC GT3RG 


GO GFT RKCS FR DS 


2824 


006620 


104030 








ERROR 


30 


'CMTRL RDY' DIDN'T Tl FAR GO 


2825 
















WAS SET TO 'WRITE FORMAT' 


2826 


006622 

W W V W 


005000 

W W ^ V w w 






2%: 


CLR 


RO 




2827 


006624 

w www k ' 


105711 








TSTB 


iRI 


WAS 'CNTRL RDY' SET ON COMPLETION OF WRITE? 


2828 


006626 


100411 








BNI 


3$ 


YES, BRANCH 


2829 


006630 


005200 

WW ^ WW 








INC 


RO 


NO HAVE U WAITED LONG ENOUGH"* 


2830 


006632 


001374 








BNE 


2S*2 


IF NOT, LOOP BACK t WAIT 


2831 
















IF YES REPORT ERROR 


2832 


006634 


004737 


020774 






JSR 


PC,GT4RG 


60 GET RKCS- ER. DS DA 


2833 


006640 


013737 


001350 


001202 




MOV 


DRIVAD.SREGIO 


2834 


006646 


104416 








BRKDA4 




GO TO 'BDA4' t BREAK CONTENTS OF 


2835 
















'SREGIO INTO DR M CYL SUR SEC BITS 
■'CNTRL RDY' DIDN'T SET ON COMPLETION 


2836 


006650 


104031 








ERROR 


31 


2837 
















OF WRITE FORMAT 


2838 
















■WRT FNT WAS DONE STARTING AT <DSK-ADRES> 


2839 
















: INDICATED IN EROR MSGE. 


2840 


006652 


004737 


021234 




3S: 


JSR 


PCCHKHE 


•GO CHECK IF 'HE' OR 'ERR' BIT SET 


2841 
















•IF YES. SAVE RKCS ER DS DA 


2842 
















•RETURN HERE IF ERROR 


2843 


006656 


104032 








ERROR 


32 


:'HE' OR 'ERR' BIT SET WHILE DOING 


2844 
















;A WRITE FORMAT 


2845 
















:WRT FNT WAS DONE STARTING AT <DSK-ADRES> 


2846 
















: INDICATED IN EROR MSGE. 


2847 


006660 


004737 


021262 




4t: 


JSR 


PC.CHKOA 


'GO CHECK IF RKDA INCREMENTED CORRECTLY 

iWV VFikVr^ F«r^ W A > «V F1 k Ilk ■« I k If k W*^ k k 1 k 1 


2848 
















: IF NOT. RETURN HERE. 


2849 


006664 


104033 








ERROR 


33 


rRKDA SHOULD HAVE INCREMENTED BY 


2850 
















•1 SECTOR IT DID NOT 

r ' *F k V ■ wn ^ A ■ W A W ivw ■ 


2851 


006666 


004737 


021316 




5S: 


JSR 


PC.CHKUC 


•CHECK IF WORD COUNT OVERFLOWED IF 

rVFI^Vn AF W WFi W k www ■ W W k >i I k Wk IF ^ A ■ 


2852 
















,NOT RETURN HERE. 


2853 


006672 


104034 








ERROR 


34 


;RKWC DID NOT OVERFLOW TO 0. AFTER 


2854 
















;XFER ON WRITE FORMAT 


2855 


006674 


022712 


034342 




6S: 


CNP 


#OUTBUFt1000.aR2 


.-DID RKBA INCREMENT CORRECTLY? 


2856 


006700 


001406 








BEO 


7$ 


:YES. BRANCH 


2857 


006702 


012737 


034342 


001162 




nov 


fOUT6UF>1000.SREG0 :GET EXPCTD RKBA 


2858 


006710 


011237 


001164 






nov 


aR2,SREG1 


;GET ACTUAL RKBA 

:RKBA DIDN'T INCREMENT BY 1000 AFTER 


2859 


006714 


104035 








ERROR 


35 


2860 
















.WRITE FORMAT OF 400 WORDS 


2861 


C06716 


004737 


021342 




7$: 


JSR 


PC.CHKER 


;CHECK lOF ANY BIT IN RKER SET. 


2862 
















;IF YES RETURN HERE. 


2863 


006722 


104036 








ERROR 


36 


;RKER SIT SET ON DOING 1 WORD 


2864 
















; WRITE FORMAT 


2865 


006724 


022711 


002202 




8S: 


cnp 


#2202,aR1 


;DOES RKCS STILL HAVE 'WRT FMT' BITS? 


2866 


006730 


001406 








BEQ 


TST16 


;;YES, EXIT 


2867 


006732 


012737 


002202 


001162 




nov 


#2202,$REG0 


;GET EXPCTD RKCS 


2868 


006740 


011137 


00116^ 






nov 


aR1,tREG1 


;GET ACTUAL RKCS 

;RKCS DIDN'T CONTAIN 'WRT FMT' BITS 


2869 


006744 


104024 








ERROR 


24 


2870 
















; AFTER THE FUNCTION WAS COMPLETED 


2871 












0 






2872 












2873 










;«TEST 


16 


CHECK 'READ FORHAT' FUNCTION-CYLINDER 0. SECTOR 0 


2874 












.••THIS 


TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FHT 


2875 












;*FUNCTI0N. ON ISSUING A 


WRT FMT, THE FOLLOWING IS CHECKED 


2876 












;•!) 


CNTRL RDY WAS CLEARED AS GO WAS SET. 


2877 












.••2) 


CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION 
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2878 






2879 






2880 






2881 






2882 






2883 






288A 






2885 






2886 






2887 






2888 






2889 






2890 






2891 






2892 






2893 


0067A6 


OOOOOA 


289A 


006750 


005000 


2895 


006752 


104413 


2896 






2897 






2898 






2899 






2900 






2901 






2902 






2903 






290A 






2905 


00675A 


104421 


2906 






2907 


006756 


013701 


2908 


006762 


013702 


2909 


006766 


012703 


2910 


006772 


010312 


2911 






2912 


00677A 


012777 


2913 


007002 


013777 


291A 


007010 


012711 


2915 






2916 


0070U 


105711 


2917 


007016 


100003 


2918 


007020 


004737 


2919 


00702A 


104030 


2920 






2921 


007026 


005000 


2922 


007030 


105711 


2923 






292A 


007032 


100411 


2925 


00703A 


005200 


2926 


007036 


001374 


2927 






2928 


007040 


004737 


2929 


007044 


013737 


2930 


007052 


104416 


2931 






2932 


007054 


104045 


2933 







001332 
001336 
033342 



177777 172332 
001350 172330 
002005 



021002 



020774 

001350 001202 
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T16 CHECK 'READ FORMAT' FUNCTION-CYLINDER 0, SECTOR 0 

•3) IF 'HE' OR 'ERR' BIT SET? 
«4) IF RKDA INCREMENTED CORRECTLY FROM 0 TO 1? 
*5) IF RKWC OVERFLOyED CORRECTLY TO 0? 
•6) IF RKBA INCREMENTED CORRECTLY BY 2? 
*7) IF AKY BIT IN RKER SET? 
•8) IF THE CORRECT HEADER VAS RECEIVED? 
*9) FOR RK11C. AFTER RD FNT RKDB CONTAINS THE CHECKSUM 
•FOR THAT SECTOR. (125252 IN THIS CASE. BECAUSE THE 
•FIRST WORD IN SEC 0 WAS WRITTEN AS 125252 IN 
•THE PREVIOUS TEST) 

•10) FOR RK11D, AFTER RD FMT RKDB SHOULD CONTAIN 
•A ZERO 

•11) IF THE RD FMT FUNCTION BITS ARE STILL IN 
•THE RKCS? 

;;^*^*««*««*««««*««***************************»*****t****** ****** 

TST16: SCOPE 

CLR RO 

CNT. RESET .GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET* IS LOCATED. 
THIS IS A VERY BASIC ERR I IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IF SET. DO DRIVE RESET TO CLR IT 



SETUP ADRS WHERE HEADER WORD IS TO BE 
X-FERRED 

SET UP WORD COUNT 

SET UP DISK ADRS. SECTOR 0. CYLINDER 0 
READ FORMAT. GO 

WAS 'CNTRL RDY' CLEARED AS GO WAS SET? 

YES, BRANCH 

GO, GET RKCS, RKER 

CNTRL RDY DIDN'T CLEAR AS GO WAS 

SET TO 'READ FORMAT* 

WAS 'CNTRL RDY' SET ON COMPLETION OF 

TRANSFER 

YES BRANCH 

NO. 'have U waited LONG ENOUGH? 
IF NOT, LOOP BACK ( WAIT 
IF YES. REPORT ERROR 
GO. GET RKCS. ER, DS.DA 



SEQ 0054 



1$: 



21: 



TST.SIN 




MOV 


RKCS.Rl 


MOV 


RKBA,R2 


MOV 


#0UTBUF.R3 


MOV 


R3,aR2 


MOV 


#•1 .aRKWC 


NOV 


DRIVAD.aRKDA 


MOV 


#2005. aRi 


TSTB 


aRi 


BPL 


2t 


JSR 


PC,6T3RG 


ERROR 


30 


CLR 


RO 


TSTB 


aRi 


6M1 


3S 


INC 


RO 


BNE 


2»*2 


JSR 


PC.GT4RG 


MOV 


DRIVAD.SREGIO 


BRKDA4 




ERROR 


45 



GO TO 'BDA4' ( BREAK CONTENTS OF 
tREGIO INTO DR /T.CYL.SUR.SEC BITS 
•CNTRL RDY' DIDN'T SET ON COMPLETION 
OF READ FORMAT 



CZRKKF .Pll 
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T16 CHECK 'READ FORHAT' FUNCTION-CYLINDER 0. SECTOR 0 



SEQ 0055 



2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 

2962 

2963 

2964 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 



007056 
007062 

007064 
007070 



007100 
007104 
007106 
007114 
007120 

007122 

007126 



007132 
007134 
007140 
007144 
007150 

007152 
007156 
007160 
007166 
007172 



004737 
104046 

004737 
104040 



007076 104041 



022712 
001406 
012737 
011237 
104042 

004737 

104036 



007130 005713 



001407 
005037 
005037 
011337 
104043 

022711 
001406 
012737 
011137 
104024 



021234 



3t: 



021262 



007072 004737 021316 



033344 

033344 001162 
001164 



021342 



4t: 



5J: 



6S: 



7$: 



8S: 



001162 
001164 
001166 



002204 



9f: 



002204 001162 
001164 



JSR PC.CHKHE 

ERROR 46 

JSR PC.CHKDA 

ERROR 40 

JSR PC.CHKWC 

ERROR 41 

CM" #0UTBUF«2,aR2 

BEQ 7$ 

MOV #OUTBUFt2,$REG0 

nOV aR2,SREG1 

ERROR 42 

JSR PC.CHKER 

ERROR 36 

TST aR3 

BEQ 9S 

CLR SREGO 

CLR SREG1 

nOV aR3.tREG2 

ERROR 43 

CMP #2204, 8R1 

BEQ TST17 

nOV #2204, SREGO 

nOV aRl.SREGI 

ERROR 24 



;READ FNT WAS DONE STARTING AT <DSK-ADRES> 

; INDICATED IN EROR MESGE 

;CHECIC IF 'ERR* OR 'HE' BIT SET. IF 

;YES RETURN HERE. 

;'HE' OR 'ERR* BIT SET WHILE 

;DOING A 'READ FORMAT' 

;READ FMT WAS DONE STARTING AT <DSK-ADRES> 

; INDICATED IN EROR HESGE 

;CHECK IF RKDA INCREMENTED CORRECTLY 

;IF NOT, RETURN HERE. 

;RKDA SHOULD HAVE INCREMENTED 

;BY 1 SECTOR, IT DID NOT 

;CKECK IF RKUC OVERFLOWED TO 0, IF 

:NOT RETURN HERE. 

.-RKWC DID NOT OVERFLOW TO 0 

.-AFTER XFER ON READ FORMAT 

.-DID RKBA INCREMENT TO NXT WORD ADDRS? 

;YES, BRANCH 

;GET EXPCTD RKBA 

;GET ACTUAL RKBA 

.RKBA DIDN'T INCREMENT BY 2 AFTER 

.••READ FORMAT' OF 1 WORD 

.-CHECK IF ANY BIT IN RKER SET. IF 

.•YES RETURN HERE. 

;RKER BIT SET ON DOING 

:1 WORD READ FORMAT 

;DOES OUTBUF CONTAIN THE HEADER 

;WORD-0 

;YES, BRANCH 

;GET SECTOR NO. 

;EXPCTD HEADER 

:GET HEADER RECVD 

.•CORRECT HEADER WORD-O-WAS 

.-NOT RECEIVED ON READ FORMAT 

.-DOES RKCS HAVE THE 'RDFMT' BITS? 

;;YES. BRANCH 

;GET EXPCTD RKCS 

;GET ACTUAL RKCS 

.-RKCS DIDN'T CONTAIN 'RD FMT' 

.BITS AFTER FUNCTION WAS 

: COMPLETED 



•West i7 check 'read' function-cylinder o. sector o 

;*THIS is the FIRST TIME A PURE READ IS PREFORMED In thIS 
;*TEST SEQUENCE. THE FOLLOWING IS CHECKED 
;*1) CNTRL RDY CLEARS AS 60 IS SET 

:*2) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
;*0F FUNCTION 

;*3) IF 'HE' OR 'ERR' BIT SET? 
;*4) IF RKDA INCREMENTED CORRECTLY? 
.■•5) IF RKWC OVERFLOWED TO 0? 
;*6) IF RKBA INCREMENTED CORRECTLY? 
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C TT w 
























?99^ 








0071 74 


000004 




0071 76 

WW f 1 > W 


10441 3 


2997 






?998 






7999 






5000 






3001 






3002 






3003 






3004 






3005 






3006 

^ WW 


007200 




3007 






3008 


007202 


013701 


3009 


007206 


005000 

w ^ w w 


3010 


007210 


01 3702 

W 1 ■/ ' wC 


301 1 


007214 


012703 


3012 


007220 


010312 


3013 






30U 


007222 


012777 


3015 


007230 


013777 


3016 

^W ■ w 


007236 


012711 


3017 






3018 

^W 1 


007242 


10571 1 


3019 


007244 


100005 

■ W W V ^ 


3020 


007246 


004737 


3021 


007252 


104030 


3022 

^ Wfc b 






3023 


007254 


005000 


3024 


007256 


105711 


3025 






3026 


007260 

WW" W V 


100411 


3027 


007262 

W f b Wh 


005200 


3028 


007264 

W ' t w^ 


001374 


3029 






3030 


007266 


004737 


3031 


007272 


013737 


3032 


007300 

WW' w w 


104416 


3033 






3034 


007302 


104045 


3035 






3036 






3037 






3038 






3039 


007304 


004737 


3040 






3041 


007310 


104046 


3042 






3043 






3044 






3045 


007312 


004737 
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T17 CHECK 'READ' FUMCT ION-CYLINDER 0, SECTOR 0 

;*7) IF ANY RKER BIT SET? 

;«8) IF THE CORRECT PSUEDO-HE ADER (FIRST WORD) WAS 
.♦READ FROM SECTOR 0 

;*9) IF THE 'READ' FUNCTION BITS ARE STILL IN RKCS 



SEQ 0056 



TST17: 



001332 

001336 
033342 



177400 172104 
001350 172102 
000005 



021002 



IS: 



2f: 



020774 

001350 001202 



SCOPE 
CNT. RESET 



TST.SIN 

nov 

CLR 

nov 
nov 
nov 



NOV 

nov 

NOV 

TSTB 
BPL 
JSR 
ERROR 

CLR 
TSTB 

BHI 
INC 
BNE 

JSR 
«0V 

BRKDA4 



RICCS,R1 
RO 

RKBA,R2 

«0UTBUF,R3 

R3,aR2 

#-400,8RKWC 

DRIVAD.BRKDA 

«5,aR1 

aRi 

2S 

PC.6T3RG 
30 

RO 
aRl 

3S 

RO 

2S*2 

PC.6T4R6 
DRIVAD.SREGIO 



ERROR 45 

3$: JSR PC.CHKHE 

ERROR 46 



4S: 



JSR PC.CHKOA 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET* ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR I IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IF SET. DO DRIVE RESET TO CLR IT 



SET UP ADDRS WHERE DATA WORD IS 
TO BE X-FERRED 
SET UP WORD COUNT 

SET UP DISK ADRS. SECTOR 0, CYLINDER 0 
READ. 60 

WAS 'CNTRL RDY' CLEARED AS GO WAS SET? 

YES, BRANCH 

GO. GET RKCS. ER 

CNTRL RDY DID NOT CLEAR AS GO 

WAS SET TO 'READ' 

WAS CNTRL RDY SET ON COMPLETION 
OF TRANSFER? 
YES BRANCH 

NO. 'have u waited long enough? 

IF NOT, LOOP BACK % WAIT 
IF YES, REPORT ERROR 
GO, GET RKCS, ER. DS.DA 

GO TO '8DA4' % BREAK CONTENTS OF 
SREG10 INTO DR «.CYL.SUR,SEC BITS 
CNTRL RDY DID NOT SET ON 
COMPLETION OF READ 

READ WAS DONE STARTING AT <DSK-ADRES> 
INDICATED IN EROR HESGE 

CHECK IF 'ERR' OR 'HE' BIT IS SET 
IF YES, RETURN HERE. 
•HE' OR 'ERR' BIT SET WHILE 
DOING A READ. 

READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

CHECK IF RKDA INCREMENTED CORRECTLY. 
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Wit 








3047 


007316 


104040 




3048 








3049 


007320 


004737 


021316 


3050 








3051 


007324 


104041 




3052 








3053 


007326 


022712 


034342 


305^ 


007332 


001406 




3055 


007334 


012737 


034342 


3056 


007342 


011237 


001164 


3057 


007346 


104042 




3058 








3059 


007350 


004737 


021342 


3060 








3061 


007354 


104036 




3062 








3063 


007356 


022713 


000001 


3064 








3065 


007362 


001411 




3066 


007364 


012737 


000001 


3067 


007372 


011337 


001164 


3068 


007376 


013737 


001350 


3069 


007404 


104044 




3070 








3071 








3072 








3073 








3074 








3075 








3076 








3077 








3078 








3079 








3080 








3081 








3082 








3083 








3084 


007406 


022777 


125252 


3085 


007414 


001407 




3086 


007416 


012737 


125252 


3087 


007424 


017737 


171712 


3088 


007432 


104037 




3089 








3090 








3091 


007434 


022711 


000204 


3092 


007440 


001406 




3093 


007442 


012737 


000204 


3094 


007450 


011137 


001164 


3095 


007454 


104024 




3096 








3097 








3098 


007456 


104413 




3099 


007460 


005777 


171656 


3100 


007464 


001407 




3101 


007466 


013737 


001342 



HACrll 

T17 



5S: 



6S: 



001162 



7$: 



8S: 



001162 
001166 



171726 9S: 

001162 
001164 



10$: 



001162 



IIS: 
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CHECK 'READ' FUNCTION-CYLINDER 0. SECTOR 0 



SEQ 0057 



ERROR 

JSR 

ERROR 

CHP 
BEQ 
NOV 
MOV 
ERROR 

JSR 

ERROR 

CMP 

BEQ 
MOV 
MOV 
MOV 
ERROR 



CMP 
BEQ 
MOV 
MOV 
ERROR 



CMP 
BEQ 
MOV 
MOV 
ERROR 



40 

PC.CHKWC 
41 



l,aR2 



#OUTBUF*1000 
7$ 

fOUTBUf tlOOCSREGO 
aR2,SREG1 
42 

PC.CHKER 
36 

#1 .aR3 
9S 

«1 ,SREGO 
(R3),$REG1 
DRIVAD.SREG2 
44 



#125252, iRKOB 
10$ 

#125252. SREGO 
aRKDB,$REG1 

37 



#204, aR1 
11$ 

#204,$REG0 

aRl,$REG1 

24 



001164 



CNT. RESET 
TST aRKDB 
BEQ TST20 
MOV RKDB,$REG1 



IF NOT RETURN HERE. 
RKDA DID NOT INCREMENT 
BY 1 (SECTOR) 

CHECK IF RKWC OVERFLOWED TO 0. 
?F NOT RETURN HERE. 
RKWC DID NOT OVERFLOW TO 0, 
AFTER X-FER ON READ 

;DID RKBA INCREMENT CORRECTLY'> 
YES, BRANCH 

;GET EXPCTD RKBA 
GET ACTUAL RKBA 
RKBA DID NOT INCREMENT BY 2 
AFTER 'READ' OF 1 WORD 
CHECK IF ANY BIT IN RKER SET. 
IF YES RETURN HERE. 
RKER BIT SET ON DOING 1 
WORD 'READ' 

DOES OUTBUF CONTAIN THE RIGHT 
DATA WORD 
YES BRANCH 

GET EXPCTD DATA WORD 
GET RECVD DATA WORD 

GET DISK ADRS FROM WHICH READ WAS DONE 
DID NOT READ THE CORRECT 
DATA WORD— FROM DISK ADRES, 

SEC 0, CYL 0, SUR 0 

AFTER 1 SECTOR READ RKDB CONTAINS 
FOR RK11C 

THE CHECKSUM FOR THAT SECTOR 
FOR RK11D 

THE LAST WORD TRANSFERRED TO MEMORY 

IT SO HAPPENS THAT WITH THE SECTOR 
THAT WAS READ, RKDB CONTAINS THE 
SANE INFORMATION FOR BOTH RK11C 
AND RK11D 

DOES RKDB CONTAIN THE EXPCTD WORD? 

YES, BRANCH 

GET EXPCTD RKDB 

GET RECVD RKDB 

RKDB DOESD NOT CONTAIN THE 

EXPCTD WORD AFTER A READ OF SEC 0 

CYL 0 

DOES RKCS HAVE THE 'READ' BITS? 

YES , BRANCH 

GET EXPCTD RKCS 

GET RECVD RKCS 

RKCS DID NOT CONTAIN 'READ' 

FUNCTION BITS AFTER OPERATION 

WAS COMPLETED 

GO DO CONTROL RESET 

DID CONTROL RESET CLEAR RKDB? 

;YES, EXIT 

GET ADRES OF RKDB 
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CZRKHr.PII ?1-FEB-78 08:51 T17 CHECK 'READ* FUNCTION-CYLINDER 0. SECTOR 0 



SEO 0058 



3102 

5103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

31U 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

31 3A 

3135 

3136 

3137 

3138 

3139 

3U0 

3U1 

3U2 

3r.3 

3UA 
3U5 
3U6 
3U7 
3U8 
3U9 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 



007474 
007502 



017737 
104102 



171642 001164 



NOV aRKOB.SREd ;GET CONTENTS OF RKDB 

ERROR 102 .-CONTROL RESET DIDN'T CLR RKDB 



007504 
007506 
007512 
007516 
007522 
007526 
007530 
007532 



007544 
007546 



007560 
007566 
007570 

007574 
007600 
007602 
007604 



000004 
013703 
012702 
013704 
013701 
010105 
005205 
012737 



007540 104413 



007542 104421 



005000 
010137 



007552 012777 



012777 
010114 
012713 

105777 
100410 
005200 
001373 



001332 
1 77764 
001340 
001350 



007540 001110 



;*TEST 20 

♦ THIS 
;*FHT 
;«1) 
•OF T 
•2) 
•3) 
•4) 
;*WRT 
•THE 
;*PSUE 
•ft SE 

TST20: SCOPE 
NOV 
NOV 
NOV 
NOV 
NOV 
INC 
NOV 



CHECK 'WRITE FORNAT' -CYLINDER 0, SECTOR 0-13 
TEST GOES ONE STEP FURTHER t PERFORNS A WRT 
ON CYLINDER 0 t CHECKS THE FOLLOWING 
IF CNTRL RDY SET WITHIN A CERTAIN TINE ON CONPLETION 
HE FUNCTION 

IF 'HE' OR 'ERR* BIT SET? 

IF THE RKDA INCRENENTS CORRECTLY? 

IF THE RKDB IS CLEAR? 

FNT IS DONE ONE SECTOR AT A TINE 

FIRST WORD OF EVERY SECTOR IS WRITTEN AS A 

DO-HEADER CONSISTING OF DRIVE », CYLINDER ». SURFACE 

CTOR ». THIS WILL BE READ I CHECKED IN THE FOLLOWING TEST. 



IS: 



033342 

033342 171556 
}77777 171546 
002003 
171532 



21: 



RKCS,R3 
#-14. R2 
RKDA.R4 
DRIVAD.R1 
R1 ,R5 
R5 

#1S.SLPERR 



CNT. RESET 



TST.SIN 

CLR 
NOV 



RO 

R1.0UTBUF 



007606 004737 020774 



NOV «0UTBUF,aRK6A 

NOV #-1.aRKWC 

NOV R1.aR4 ;ADDRS 

NOV #2003. aR3 

TSTB aRKCS 

BNI 3S 

INC RO 

BNE 2S 

JSR PC.GT4RG 



;SET UP COUNT FOR 12 SECTORS 

;GET DRIVE ADDRESS 
.STORE IT 

SET RETURN ADRES FOR LUPING 

ON ERROR (SW 9) 

GO. DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET* ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TINE 

IF THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR NESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR t IF IT 

OCCURS GO BACK TO TEST 10 

GO CHECK IF SIN IS SET 

IF SET. DO DRIVE RESET TO CLR IT 



THIS WORD TO BE X-FERRED. FIRST 
;WOR0 OF EACH SECTOR WILL BE THE 
;ACTUAL DRIVE-ADDRS CONSISTING OF 
;DRIVE NO. CYL AODRS. SURFACE 
SECTOR NO. 

;ADRS FRON WHICH DATA WORD IS TO 
;X-FERRED 

;SET UP WORD COUNT 
THE DRIVE. CYL 0. t CORRECT SECTOR 
;WRITE FORNAT. 60 



DID 'CNTRL RDY' SET? 
YES. BRANCH 

NO. HAVE U WAITED LONG? 
IF NOT. LOOP BACK t WAIT 
IF YES. REPORT ERROR 
GO, GET RKCS, ER. DS.DA 



HD-11-C2RKKf 
CZRlCKf .P11 



RKII BASIC LOGIC TEST 2 
21-fEB-78 08:51 
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T20 CHECK 'yRITE rORHAT' -CTLINDER 0, SECTOR 0-13 



SEQ 0059 



3158 


007612 


010137 


3159 






3160 


007616 


104416 


3161 






3162 


007620 


104031 


3163 






31 6A 






3165 






3166 


007622 


004737 


3167 






3168 


007626 


104032 


3169 






3170 






3171 






3172 






3173 






3174 






3175 


007630 


004737 


3176 






3177 


007634 


104033 


3178 






3179 






3180 






3181 


007636 


005777 


3182 






3183 






3184 


007642 


001406 


3185 


007644 


005037 


3186 


007650 


017737 


3187 


007656 


104037 


3188 






3189 






3190 


007660 


005201 


3191 


007662 


005205 


3192 


007664 


122705 


3193 


007670 


001002 


3194 


007672 


062705 


3195 






3196 


007676 


005202 


3197 


007700 


001317 


3198 






3199 






3200 






3201 






3202 






3203 






3204 






3205 






3206 






3207 






3208 






3209 






3210 






3211 






3212 






3213 







3$: 



4$: 



5$: 



171466 001164 



6$: 



MOV RI.SREGIO 

BRKDA4 

ERROR 31 



JSR 
ERROR 



JSR 



PC.CHKHE1 
32 



PC.CHKDAI 



GET DISK ADRS (UNIT, CVL,SUR, SEC) TO WHICH 
WRITE FORMAT WAS DONE 
GO TO 'BDA4' t BREAK CONTENTS OF 
SREG10 INTO DR #,CYL,SUR,SEC BITS 
'CNTRL RDY' DID NOT SET ON COMPLETION 
OF 'WRITE FORMAT' 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MSGE. 

CHECK IF 'ERR' OR 'HE' BIT IS SET. 

IF YES RETURN HERE. 

'HE' OR 'ERR' BIT SET WHILE DOING 

WRITE FORMAT ON CYLINDER 0, 

SECTOR IN ERROR IS AS SHOWN IN 

DISK-ADRES BITS 0-3 

WRT FMT WAS DONE STARTING AT <DSK-ADRES> 
INDICATED IN EROR MSGE. 

CHECK IF RKDA INCREMENTED CORRECTLY? 



.••TEST 21 



ERROR 


33 


:RKDA DID NOT INCREMENT CORRECT 






.•AFTER 1 WORD 'WRITE FORMAT' ON 






.-CYLINDER 0. SECTOR IN ERROR IS 1 






;LESS THAN THAT SHOWN IN EXPCTD RKDA 


TST 


aRKOB 


.■CHECK THAT RKDB DOES CONTAIN A 0 






.•AFTER WRT BECAUSE LAST WORD WRITTEN 






;WAS SERIALLY SHIFTED OUT TO THE DISK 


BEG 


6S 


'YES BRANCH 


CLR 


SREGO 


•THIS IS WHAT RKDB SHOULD CONTAIN 


MOV 


iRKDB.SREGl 


:GET RKDB 


ERROR 


37 


.-RKDB SHOULD BE 0 AFTER WRT SINCE THC 






.LAST WORD WRITTEN WAS SERIALLY SHIFTED 






.-OUT OF RKDB 


INC 


R1 


.•INCREMENT DRIVE ADDRS TO NXT SECTOR 


INC 


R5 




CMPB 


#14. R5 


;R U GOING TO CHECK THE LAST SECTOR? 


BNE 


.♦6 


• I F NOT BRANCH 


ADD 


«4,R5 


•IF YEs!lNCREHENT R5 CORRECTLY TO 'EXPCTD 






.•AFTER HAVING CHECKED THE LAST SECTOR 


INC 


R2 


;HAVE U FORMATTED ALL 12 SECTORS? 


BNE 


1$ 


:IF NOT, BRANCH BACK ft LOOP 






;IF YES. EXIT 


21 


CHECK 'READ FORHAT'-CYLINDER 0. SECTOR 0-13 


.••THIS TEST PERFORMS A 


RD FHT ON THE 12 SECTORS OF CYLINDER 0 


.••THE 


FOLLOWING IS CHECKED 


;*1) 


IF CNTRL ROY SET 


WITHIN A CERTAIN TIME ON COMPLETION 


;*0F 


THE FUNCTION 




;*2) 


IF 'HE' OR 'ERR* 


BIT SET? 



IF THE RKDA INCREMENTS CORRECTLY? 
RKBA INCREMENTED CORRECTLY BY 30 (OCTAL) 
RKWC OVERFLOWED TO 0 FROM -U (OCTAL) 
CORRECT HEADER WAS RECEIVED FROM ALL 12 SECTORS. 
RKCS STILL CONTAINS THE 'RO FHT' FUNCTION BITS. 
THERE IS A READ ERROR IN THIS TEST OR ANY 



OTHER TESTS THE USER SHOULD HAKE SURE THAT 



D-11- 


CZRKKF , 


RK11 BASIC LOGIC TEST 2 


L H ^ ^ r 


■ r I 1 


t 1 ' CD ' O 


UO • } 1 


32U 








3215 








3216 








3217 








3218 








3219 


007702 






3220 


007704 






3221 


007706 






3222 








3223 








3224 








3225 








3226 








3227 








3228 








3229 








3230 








3231 


007710 


104421 




3232 








3233 


007712 


01 3701 


001 33? 


323A 


007716 


01 5700 


1 77764 


3235 


007722 


01 370? 


001 ^40 

V/V/ 1 J"w 


3236 


007726 


01 371? 


001 350 

wV/ 1 J J w 


3237 


007732 


012704 


03334? 


3238 


007736 


010477 


1 71 374 

If 1 J f f 


3239 


007742 


01?777 


177764 171364 


3240 


007750 


012777 

VIC' » » 


00?005 171354 

wVCww^ 1 r 1 J J'^ 


3241 








3242 


007756 


105777 


1 71 350 

1 > 1 ^ ^ w 


3243 


007762 


10041 1 




3244 


007764 


005?0S 




3245 


007766 


001373 




3246 








3247 


007770 


004737 


020774 


3248 


007774 


01 3737 


001350 001?0? 


3249 


010002 






3250 








3251 


010004 


104045 




3252 








3253 








3254 








3255 








3256 


010006 


004737 


0?1?34 


3257 








3258 


010012 


104046 




3259 








3260 








3261 








3262 


010014 


01 3705 


001350 


3263 


010020 


062705 


OOOOPO 


3264 








3265 


010024 


00<i737 


0?1270 

wC I b ' w 


3266 








3267 


010030 


104040 




3268 








3269 
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T21 CHECK 'READ FORBAT'-CYLINDER 0. SECTOR 0-13 

:*IT IS AN IRRECOVERABLE ERROR AMD NOT A TRANSIENT 

:*0NE. THIS CAN BE DONE BY LOOPING ON THE TEST 

:*IN QUESTION. USUALLY A TRANSIENT ERROR 

.-•DISAPPEARS ON RETRIES, WHEREAS A LOGIC ERROR DOES NOT, 



SEO 0060 



TST21 



1$; 



2S: 



3$; 



SCOPE 

CLR R5 
CNT. RESET 



TST.SIN 




nov 


RKCS.R1 


nov 


#-14. RO 






NOV 


DRIVAD.aR2 


NOV 


#0UTBUF,R4 


nuv 




NOV 


#-14,aRKWC 


NOV 


«2005,aRKCS 


T C TO 




BNI 


2S 




K 3 


BNE 


IS 


JSR 


PC,GT4RG 


NOV 


DRIVAD.SREG 


BRICDA4 




ERROR 


45 


JSR 


PC.CHKHE 


ERROR 


46 


NOV 


DRIVAD,R5 


ADD 


#20. R5 


JSR 


PC.CHKDA1 


ERROR 


40 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDV* DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR I IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IS SET, DO DRIVE RESET TO CLR IT 

SET UP COUNT FOR 12 SECTORS 

ADDRESS THE DRJVE 

ADRS TO WHICH X-FER DATA FROM DSK 

SET UP WORD COUNT FOR 12 HEADERS TO BREAD 

READ FORMAT, GO 

DID CNTRL RDY SET ON COMPLETION? 
YES, BRANCH 

NO. WAIT FOR IT TO SET 
IF WAITED LONG ENOUGH REPORT 
ERROR. OTHERWISE LOOP BACK % WAIT 
GO. GET RKCS. ER, DS.DA 

GO TO 'BDA4' I BREAK CONTENTS OF 
SREG10 INTO DR#,CYL,SUR,SEC BITS 
CNTRL RDY DID NOT SET ON COMPLETION 
OF READ FORMAT-OF CYLINDER 0. 
SECTORS 0-13 

READ FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

CHECK IF 'ERR* OR 'HE' BIT IS SET. 

IF YES RETURN HERE. 

'ERR' OR 'HE' BIT SET ON DOING 

READ FHT-OF CYLINDER 0. SEC 0-13 

READ FMT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR MESGE 

RKDA SHOULD HAVE INCREMENTD TO (R2) 

CHECK IF RKDA INCREMENTED CORRECTLY. 
IF NOT. RETURN HERE. 
RKDA DID NOT INCREMENT BY 12 
AFTER A 'RD FMT* OF 12 HEADERS OF 
CYLINDER 0, SECTORS 0-13 



M0-11-CZRKKF 
CZRKKF.P11 



RKll BASIC LOGIC 
21-FEB-78 08:51 



TEST 2 



MACYV 
T21 



J 5 
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CHECK 'READ FORHAT'-CVLINOER 0. SECTOR 0-13 



SEQ 0061 











JC 1 1 








JC ' c 


U 1 Vlu JC 


\JC C 1 1 f 


033372 


jC t J 




001407 




JC 1 *• 


vl 1 W*« C 


01 2737 

w 1 C r J r 


033372 

V J J J 1 C 




01QQS0 

w 1 W Jv 


01 7737 


171262 

If 1 C U b 


jC > U 


w 1 w w Jw 


104042 




^?77 

JC I 1 








jC I O 




004737 

WW** r J r 


021316 

wC 1 J 1 w 










JC ou 




104041 




JC O 1 








JC oc 










010066 


005724 






010070 


00141 3 




3285 


010072 


010037 


001162 


3286 


010076 


062737 


000014 


3287 

JC O ' 


010104 


005037 


001164 


3288 


01 01 10 


014437 


001166 

V W 1 1 W w 


3289 

JC W 7 


0101 14 


104043 




3290 

JC 7v 








3291 

JC T 1 


0101 16 


005724 




3292 

JC 'C 


010120 


005200 




3293 

JC 7 J 


010122 

V 1 V 1 cc 


001 361 




3294 

JC T"* 








3295 

JC r J 


010124 

U 1 V 1 c^ 


004737 


021342 

Wt I J~ b 


3296 

JC 7W 








3297 

JC T r 


010130 


104036 




3298 

JC 7U 








3299 

JC ' ' 


010132 


022711 


002204 


3300 


010136 


001406 




3301 


010140 


012737 


002204 


3302 

J JVC 


010146 


011137 


001164 


3303 

J J\f J 


010152 


104024 




330* 








3305 

J J\J J 








3306 

J JW 








3307 








3308 








3309 

J J w y 








3310 








3311 

J .J 9 ■ 








3^12 

J ' 1 C 








3313 








3314 








3315 








3316 

J J \ \f 








3317 








3318 

J ^ 1 w 








3319 








3320 








3321 








3322 








3323 








3324 








3325 









171276 4$: 

001162 
001164 



5$: 



6S: 



7$: 



8S: 



CMP «OUTBUFt30,aRKBA 

BEQ 5S 

MOV #OUTBUF+30.$REG0 

NOV aRKBA.SREGI 

ERROR 42 

JSR PCCHKUC 

ERROR 41 



TST (R4)* 

BEQ 7S 

MOV RO.SREGO 

ADD #14,SREG0 

CLR SREG1 

MOV -(R4).$REG2 

ERROR 43 

TST (R4)t 

INC RO 

BNE 6S 

JSR PCCHKER 

ERROR 36 

CMP #2204, iRl 

BEQ TST22 

nOV #2204.SREG0 

MOV aRI.SREGI 

ERROR 24 



.RKBA SHOULD INCREMENT BY 24 BYTES 
;AT THE END OF X-FER 

;DID RKBA INCREMENT CORRECTLY? 
:YES, BRANCH 

.GET EXPCTD RKBA 
.-GET ACTUAL RKBA 

.-RKBA DID NOT INCREMENT CORRECTLY 
.-AFTER READ FORMAT OF 12 HEADERS 
:G0 CHECK IF RKUC OVERFLOWED TO 0 
:IF NOT RETURN HERE. 
:RKWC DID NOT OVERFLOW TO 0 
.-AFTER 'RD FMT' OF 12 HEADERS 
;0F CYLINDER 0 

.WAS THE CORRECT HEADER RECIEVED? 
'YES BRANCH 

•GEt'sECTOR for which THE HEADER 

.■COULD NOT BE READ CORRECT 

.-EXPCTD HEADER-O. FOR CYL 0 

;GET WRONG HEADER RECVD 

: HEADER WAS NOT READ RIGHT FOR 

.-SECTOR <AS IN ER MSGE). t CYL 0 

.WAS THE CORRECT HEADER RECVD? 

;YES. HAVE U CHECKED FOR ALL 12 SECTORS? 

:IF NOT. LOOP BACK t CHK HDR FRM NXT SECTR 

.-CHECK IF ANY BIT IN RKER IS SET, 

:IF YES, RETURN HERE. 

;RKER BIT SET ON DOING RD FMT 

.-OF CYL 0. SECTORS 0-13 

;D0ES RKCS STILL CONTAIN FUNCTION BITS? 

;;YES, EXIT 

.-GET EXPCTD RKCS 

.-GET ACTUAL RKCS 

.-RKCS DID NOT CONTAIN 'RD FMT' 

.-FUNCTION BITS ON COMPETION OF 

.-THE FUNCTION 



.-•TEST 22 CHECK 'READ' .CYLINDER 0, SECTORS 0 TO 13 

;*THIS TEST PERFORMS A READ OF ALL THE SECTORS OF CYLINDER 0 

CHECKS THE FOLLOWING 
.-•1) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
;*0F THE FUNCTION 
;*2) IF 'HE* OR 'ERR* BIT SET? 

.-•3) IF THE CORRECT PSUEDO-HEAOER (FIRST WORD OF EVERY) 
.-•SECTOR. WRITTEN IN A PREVIOUS TEST) WAS RECEIVED. 
:*4) IF RKOS CONTAINS THE CORRECT WORD. 
;*4) IF RKOA INCREMENTED CORRECTLY. 

.-•5) IF REST OF THE (377) WORDS IN EACH SECTOR ARE '0' . NOTE 

.-•PREVIOUSLY ONE WORD WAS WRITTEN PER SECTOR. 

.-•6) IF RKCS STILL CONTAINS THE 'READ* FUNCTION BITS 

.••7) IF CONTROL RESET CLEARS RKDB. 

IF TESTING IS BEING DONE ON A SIMULATOR ONLY LAST SECT0R(13) 
.-•IS READ BECAUSE TH{ SIMULATOR CAN STORE ONLY 1 SECTOR (256 WORDS) 



MD-11-CZRlCtCF . RK11 BASIC LOGIC TEST 2 
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01 01 S4 


000004 

V V vwv~ 






J JC r 


01 01 


01P757 


010230 

V 1 VC ^v 


001 110 

VV 1 1 1 V 


J J J w 










J J J i 


0101^^ 


01 3703 


00133? 

W 1 J JC 






010170 


01 3701 

V 1 J • V 1 


001 350 

VV 1 J JV 




J J J J 


0101 74 


010105 






J J J** 


010176 


012704 

VIC' w** 


033342 

V JJJ^C 




J J J J 


01020? 


005737 


001344 

VW 1 J " ~ 






010206 


001405 

V V ' ~ w V 






3337 

J J J 1 










3338 










3339 


010210 


052701 


00001 3 

WW ■ J 






010214 


052705 


000020 

V V V V C V 




33A1 


010220 

W • VC C V 


000403 

V V W~ V ^ 








010222 

V 1 VC c c 


012702 


177764 




33A5 


010226 

V ' VC C V 


005205 






3344 










3345 


010230 


104413 






3346 










3347 










3348 










3349 










3350 










3351 










3352 










3353 










3354 










3355 


010232 


104421 






3356 










3357 


010234 


010177 


171100 




3358 


010240 


010477 


171072 




3359 


010244 


012777 

VIC' ' ' 


177400 


171062 


3360 


010252 


012713 


000005 




3361 










3362 


010256 


005000 

W ^ V V V 






3363 


010260 

W 1 V C W w 


105713 






3364 


010262 


100410 






3365 


010264 


005200 






3366 


010266 

V 1 Vb WW 


001374 






3367 










3368 


010270 


004737 


020774 




3369 


010274 


010137 


001202 




3370 


010300 


104416 






3371 










3372 


010302 


104045 






3373 










3374 










3375 










3376 










3377 


010304 


004737 


021226 




3378 










3379 


010310 


104046 






3380 










3381 
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T22 CHECK 'READ', CYLINDER 0. SECTORS 0 TO 13 

:*HENCE ONLY THE DATA WRITTEN LAST CAN BE READ BACK. 



SEQ 0062 



TST22i 



9$: 

1$: 



2$: 



3$: 



SCOPE 
NOV 

nov 

NOV 
NOV 
NOV 

TST 
BEQ 



BIS 

BIS 

BR 

NOV 

INC 



#1S.$LPERR 

RKCS.R3 

DRIVAD.RI 

R1,R5 

#0UTBUF,R4 

SINUL 

9$ 



#13. R1 
#20, R5 
IS 

#-14. R2 
R5 



CNT. RESET 



TST. SIN 

NOV 
NOV 
NOV 
NOV 

CLR 
TSTB 
BNI 
INC 
BNE 



Rl.dRKDA 
R4,aRKBA 
#-400,aRICUC 
#5,aR3 

RO 

aR3 

3$ 

RO 

2S 



JSR PC,GT4RG 

NOV R1,tREG10 
BRKDA4 

ERROR 45 



JSR PC.CHKHE1 
ERROR 46 



;SET RETURN ADRES FOn LUPING 
:0N ERROR (SW 9) 



TESTING ON SINULATOR? 
NO BRANCH 

IF 'testing on SINULATOR READ 
SECTOR 13 ONLY 
SET BITS FOR SEC 13 

RKDA SHOULD INCRNNT TO THIS AFTER READ 

SET COUNT FOR 12 SECTORS 

RKDA SHOULD INCRENENT TO 

THIS AFTER 1 SECTOR READ 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TINE 

IF THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR t IF IT 

OCCURS GO BACK TO TEST 10 

GO CHECK IF SIN IS SET 

IF SET, DO DRIVE RESET TO CLR IT 

ADDRESS THE DRIVE 

ADRS TO WHICH X-FER DATA FRON DISK 
SETUP WORD COUNT 
READ. GO 



DID CNTRL RDY SET ON CONPETION? 
YES, BRANCH 

NO, WAIT FOR IT TO SET 

IF WAITED LONG ENOUGH, REPORT 

ERROR, OTHERWISE LOOP BAK t WAIT 

GO, GET RKCS. ER, OS, DA 

GET SECTOR ADDRES WHERE ERROR OCCURED 

GO TO 'BDA4' t BREAK CONTENTS OF 

SREG10 INTO DR #,CYL,SUR.SEC BITS 

CNTRL RDY DID NOT SET ON CONPLETION 

OF READ OF CYLINDER 0, SECTOR 

AS SHOWN IN <DSK-ADRES> 

READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR NESGE 

CHECK IF 'ERR' OR 'HE' BIT IS SET, 

IF YES RETURN HERE. 

HE OR ERR BIT SET 

ON 'READ' OF CYLINDER 0. SECTOR 

AS SHOWN IN <DSK-ADRES> 
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JJOC 
















J JO J 
















J JO** 


1 vj I c 








H # • 




R1 (R4) 


J JO J 
































J JO 1 
















^^AA 


01 4 


nni 407 








RFO 


St 

J 9 


^XAQ 
jjoy 


U 1 W J 1 o 


0101 ^7 


001 1 A? 
UU 1 I DC 






HOU 

nu V 


R1 tRFRO 


J JT\J 


V 1 VjCC 


01 14^7 

U 1 \H Jf 


001 1^4 

UU 1 1 OH 






MOU 


loL\ tBFGI 




010^?6 


0101 ^7 


001 166 

W 1 low 






nu w 


R1 IRFG? 




01033? 


104044 








FRftOR 


44 


J JT J 




































0047^7 


071? 70 




St • 


J On 


pr ruirrtAi 


J JT\J 
















J JT f 


010340 


104040 








f RBOR 


40 


^^98 
















^^99 

JJT7 


























































t 






















3404 
















340S 
















3406 
















3407 
















3408 


010342 


012737 


177775 


001370 

VV 1 ' w 




NOV 

n V ¥ 


#-3 FFI fil 


3409 


010350 


012700 

VIC' w 


033344 






MOV 


fOUTBUFt? RO 

wwuiDUl *^c#nv 


3410 


010354 


012737 


1 77401 


001362 

VV 1 VWb 




NOV 

n V ¥ 


#-377 COUNT 


341 1 


010362 


005710 






lit- 


TST 


• n w 


3412 


010364 


001005 








one 


12t 


3413 


010366 


005720 








TST 


(RO) «' 

\ nw / 


3414 


010370 


005237 


001362 

VV 1 ^wfc 






INC 


COUNT 


3415 


010374 


001372 








BNE 


lit 


3416 


010376 


000412 

WWW" ' c 








BR 

OH 


7$ 


3417 


010400 


005037 

W W ^ W^ r 


001 162 

WW 1 < wc 




121- 


wen 


SRFGO 

# n t WW 


3418 


010404 


01 2037 


001 164 

WW) I u ~ 






NOV 

n V ¥ 




3419 


010410 


010137 


001 166 






MOV 


R1 IRFG? 


3420 
















3421 


010414 


104044 

1 w~ w~ ~ 








FRftOR 


44 


3422 
















3423 
















3424 
















3425 
















3426 
















3427 
















3428 
















3429 


010416 


005237 

W W ^ h V ' 


001370 






INC 


PFl fil 


3430 


010422 


001357 








BNF 


lit 


3431 
















3432 
















3433 


010424 


005717 


001344 




7$: 


TST 


SIMUL 


3434 


010430 


001011 








BNE 


lot 


3^35 
















3436 
















3^37 


010432 


00S201 








INC 


R1 



58 PAGE 64 
SECTORS 0 TO 13 



SEQ 0063 



READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR HESGE 

WAS THE DATA WORD RECVD, CORRECT? 

THE FIRST DATA WORD OF EACH SECTOR 

IS AN ADRS WORD COHRISING OF DRIVE NO, 

CYLINDER ADRS, SUR, SECTOR ADRS 

GET EXPCTD DATA WORD FRON DISK 
GET THE DATA WORD RECVD 
GET DISK ADRES 

DID NOT RECIEVE CORRECT DATA WORD ON 

READ, OF CYLINDER 0, SECTOR AS SHOWN IN 'DSK 

ADRES' OF EXPCTD DATA WORD 

CHECK IF RKDA INCREMENTED CORRECTLY, 

IF NOT RETURN HERE. 

RKDA DID NOT INCREMENT CORRECTLY 

AFTER READ OF 1 WORD. FRON CYL 0 

SEC IN ERROR IS 1 LESS THAN THAT 

SHOWN IN EXPCTD RKDA 

AS A RESULT OF 'WRT FMT' IN A PREVIOUS TEST 
FIRST WORD OF EVERY SECTOR IS NON- 
ZERO (PSUEDO-HDR), REST 377 WORDS 
ARE ALL O'S. 

CHECK IF THE REST OF THE 377 

WORDS ARE ALL O'S 

ALLOW ONLY 3 ERRORS 

INITIALIZE PTR TO 2ND WRD IN BUFR 

CHECK 377 WORDS IN THE BUFFER 

IS THIS WRD 0? 

NO, ERROR 

INCRNNT PTR TO NXT WRD 
CHKD ALL 377 WRDS? 

YES, BRANCH 
GET EXPCTD WORD 
GET WORD RECVD 

GET DISK ADRES, ERROR IN THIS 
SECTOR 

DATA ERROR, THE LAST 377 WORDS 
READ FROM EACH SECTOR SHOULD BE 0 
IN A PREVIOUS TEST. FIRST WORD OF 
EVERY SEC (CYL 0) WAS WRITTEN AS A 
PSUEDO-HDR, REST OF THE WORDS IN THE 
SECTR ARE AUTOMATICALLY WRITTEN AS 
O'S. THIS ERROR NAY MEAN THAT IT 
DIDN'T HAPPEN SO 

ALLOW ONLY 3 DATA ERORS OF THIS KINO 



TESTING ON SIMULATOR? 
YES BRANCH 

IF NOT TESTING ON SIMULATOR GO AHEAD 
K READ ALL 12 SECTORS ON CYL 0 
INCREMENT DRIV-ADRES TO NXT SECTOR 
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T22 CHECK 'READ' .CYLINDER 0. SECTORS 0 TO 13 



SEQ 006^ 



3438 


010434 


A A r A r 

005205 


3439 


010436 


122705 


3440 


010442 


001002 


3441 


010444 


062705 


3442 






3443 


010450 


005202 


3444 


010452 


A A 4 ^ d £. 

001266 


3445 






3446 


A 4 A / f y 

010454 


02271 3 


3447 


A 4 A y ^ A 

010460 


A A 4 i A^ 

001406 


3448 


A 4 A i ^ ^ 

010462 


A 4 ^ V ^ 

012737 


3449 


A 4 A y ^ A 

010470 


A 4 4 T T 

011337 


3450 


A 4 A y 'y i 


4 A y A y 

104024 


3451 






3452 


A4 Ay 7^ 

0104 76 


4 Ay y 4 V 

10441 3 


3453 






3454 






TV C C 

3455 






3456 






345r 






Tyco 
3458 






Ty CO 
3459 






Ty 

3460 






Ty ^ 1 






Ty ^ 


Ai AC AA 

010500 


AAC 777 

005^ ( ( 


Ty ^ t 

3463 


A 4 AC A/ 

01050^ 


AA1 y A7 

001407 


Ty d^i 

3464 


A 4 AC 

01 0306 


AI T7T7 

01 3737 


Ty ^c 

3465 


Ai AC i / 

01051h 


AI 7717 

01 llif 


3466 


A1 AC 01 
010)^^ 


1 Ay 1 AO 

1 OAl 0^ 


Ty A 7 
j46r 






Ty Z.0 
3468 






Ty 

3469 






Ty 7A 

34 f\j 






Ty 71 
34 r 1 






Ty 70 

5'tfc 






1J 7T 

34 r 3 






Ty 7y 
34 r 4 






Ty 7C 

34 r 5 






Ty 7X 
34 ^6 






Ty 77 






Ty 70 

34 78 






T y 70 

34 rV 






Ty QA 

3480 






Ty o 1 
3481 






Ty oo 
348^ 






T/ ■ T 

3483 






Ty fly 
3484 






3485 






Ty fliL 
3486 






Ty B7 
348r 












3489 






3490 






3491 






3492 






5493 







10S: 



INC 
CMPB 
BNE 
ADD 

INC 
BNE 

CUP 
BEQ 

nov 
nov 

ERROR 



R5 

#14. R5 

.♦6 

#4,R5 

R2 
IS 

#204. aR3 
8t 

«204.SREG0 

aR3.SREG1 

24 



8S: 



CNT. RESET 



TST 
BEQ 

nov 
nov 

ERROR 



aRKDB 
TST23 

RKDB.SREGO 
aRKDB, SREG1 

102 



INCREMENT 'EXPCTD DRIV-ADRES' 

R U GOING TO READ THE LAST SECTORS 

IF NOT. BRANCH 

IF YES, INCREMENT 'EXPCTD RKDA' 
CORRECTLY 

HAVE U READ ALL 12 SECTORS? 
IF NOT LOOP BACK ft READ THE 
NXT SECTOR 

DOES RKCS. STILL HAVE THE 'READ' FUNCTION 
YES, BRANCH 
GET EXPCTD RKCS 
GET RKCS RECVD 

RKCS SHOULD STILL CONTAIN THE 'READ' 

FUNCTION BITS 

GO ,D0 CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDV' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR I IF IT 

OCCURS GO BACK TO TEST 10 

DID CNTRL RESET CLEAR RKDB? 

;YES. EXIT 

GET ADRES OF RKDB 

GET CONTENTS OF RKDB 

CONTROL RESET DID NOl 

CLEAR RKDB 



;»TEST 23 CHECK 'WRITE FORMAT' OF THE DISK 

THIS TEST WRITE FORMATS THE ENTIRE DISK. THE FIRST 
WORD OF EVERY SECTOR IS WRITTEN TO BE A PSUEDO-HEADER 
CONSISTING OF THE DRIVE #, CYLINDER «. SURFACE I SECTOR #. 
1 SECTOR IS WRITTEN AT A TIME. THE WRITING IS DONE 
IN THIS ORDER: CYL 0-SUR 0; CYL 0-SUR 1; CYL 1-SUR 0 

CYL 1-SUR 1; CYL 2-SUR 0; CYL 2-SUR 1 CYL 312-SUR 1. 

IMPORTANCE OF THIS TEST SHOULD BE REALIZED, THIS IS 
THE FIRST TIME EACH t EVERY SECTOR ON THE DISK IS 
ACCESSED t WRITTEN ON. THIS IS THE FIRST TIME RKDA 
IS BEING MADE TO INCREMENT OVER THE ENTIRE DISK (FROM 
000000 TO 0U520) IF A 'SIN* OCCURS AT ANY POINT 
A DRIVE RESET IS DONE BEFORE DOING WRT FMT FOR THE NEXT 
SECTOR. ANY OTHER ERROR IS CLEARED THROUGH A CONTROL RESET. 
THE FOLLOWING CHECKING IS DONE AFTER WRITING EACH 
CYLINDER. 

1. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
OF THE FUNCTION. 

2. IF 'SIN' OCCURRED? 

3. IF 'HE' OR 'ERR' BIT SET** 

4! IF RKDA INCREMENTED CORRECTLY, INCLUDING BOUNDARY 
CONDITIONS (SECTOR COUNTER BITS OVERFLOWING INTO SURFACE, 
SURFACE BIT OVERFLOWING INTO CYLINDER BITS) AT THE END 



D-11- 


CZRKKF, 


RICH BASIC LOGIC 


TEST 2 




n 1 1 
.PI 1 


21-FtB-78 


AO . C i 

08:51 




3494 










3495 










3496 










3497 


010524 


AA AAA/ 
000004 






3498 


010526 


A1 0717 


AAAAA1 
000001 


001206 


3499 


010534 


A1 OTTT 


AI AC^/ 

010364 


001110 


3500 










3501 


010542 


AACAAT 

003003 






3502 










3503 


010544 


A1 OTA/ 

01 c rU4 


1 77/ 




3504 


010550 


Ai OTAO 


1 777i»/ 




3505 


010554 


rti 77m 
01 j^Ol 


AA1 7CA 
001 330 




3506 


010560 


01 01 03 






3507 


010562 


AAc one 
003£03 






3508 


010564 


1 A/ y 1 1 
1 04^1 3 






3509 










3510 










3511 










3512 










3513 










3514 










3515 










3516 










3517 










3518 


010566 


1 AAA 5 1 

1 Ohhc 1 






3519 










3520 


010570 


AAC A77 

0030jr 


AA1 7/»3 
001 30C 




3521 


010574 


A1 A1 77 

01 01 3r 


A777A 3 




3522 










3523 










3524 










3525 


010600 


A1 0777 


A777/. 3 


170530 


3526 


010606 


t\^ 3777 

\)\cf f f 


1 77777 

\ f f f f f 


170520 


3527 


010614 


Aim 77 

0 1 0 1 f f 


1 7AQ3A 
1 r03cO 




3528 










3529 


010620 


A1 5777 


AA3AA7 

OOcOOj 


170504 


3530 










3551 


010626 


1 AC777 


1 7AQAA 
1 ^0300 




3532 


010632 


1 AA/ 1 1 
1 OOh 1 1 






3533 


010634 


AA"; 377 


AA1 7A3 
00 1 jOc 




3534 


010640 


AA1 773 
00 1 3r C 






3S35 










3536 


010642 


AA/. 777 
00*1 1 Jl 


A3A77Z. 
OcOr IH 




3537 


010646 


AI A1 77 

0 1 0 1 


AA1 3A3 
001 C\/C 




3538 


010652 


1 (\LL 1 A 
1 0*1*1 ID 






3539 










3540 


010654 


1 A/.A71 
1 OhO J 1 






3541 










3542 










3543 










3544 










3545 


010656 


n7'>777 

0 Jt (If 


AA1 AAA 
00 1 000 


17044i! 


3546 


010664 








3547 


010666 


004737 


021002 




3548 


010672 


010137 


001170 




3549 


010676 


104001 
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66 



SEO 0065 



TST23: 



IS: 



7$: 



2S: 



3S: 



.■*0F THIS POINTERS ARE INCREMENTED ADJUSTED, ETC. 
1*1 'URT FMT' ON THE NEXT SECTOR IS DONE. 



SCOPE 

MOV #1,STIMES 
MOV flS.SLPERR 



CLR 

nov 
nov 
nov 
nov 

INC 



R3 

f-313.R4 
f-14.R2 
DRIVAD.Rl 
R1 .R5 

R5 



CNT. RESET 



TST.SIN 
CLR 

nov 



COUNT 
Rl.OUTBUF 



nov 

MOV 

nov 
nov 

rSTB 
BMI 
INC 
BNE 

JSR 
MOV 

BRICDA4 



«0UTBUF,aRKBA 

#-l,8RKUC 

RUaRKDA 

#2003,8RICCS 

aRKCS 
3S 

COUNT 
2S 

PC.GT4RG 
R1.SREG10 



ERROR 31 



BIT 
6EQ 
JSR 
MOV 
ERROR 



flOOO.aRKDS 
4S 

PC.GT3RG 
R1,SREG3 

1 



:D0 1 ITERATION 

SET RETURN ADRES FOR LUPING 

ON ERROR (SU 9) 

(R3)=0, SURFACE 0 BEING WRITTEN 

(R3)-1, SURFACE 1 BEING WRITTEN 

SET UP COUNT FOR 203 CYLINDERS 

SET UP COUNT FOR 12 SECTORS 

GET DRIVE ADRES 

STORE IT 

GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR I IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IF SET, DO DRIVE RESET TO CLR IT 

THIS WORD TO BE WRITTEN. THE FIRST 
WORD OF EACH SECTOR WILL BE THE ACTUAL 
DISK-ADRES, CONSISTING OF THE DRIVE NO, 
CYL ADRES. SURFACE BIT SECTOR ADRES 
ADRES FROM WHICH WORD IS TO B X-FERRED 
SET UP WORD COUNT 
ADRES THE DRIVE, WITH CORRECT CYL 
I SECTOR ADRES 
WRITE FORMAT, GO 

DID CNTRL RDY SET 
YES BRANCH 

NO, 'have U WAITED LONG ENOUGH? 
IF NOT, LOOP BACK I WAIT 
IF YES, REPORT ERROR 
GO, GET RKCS, ER, DS/DA 
GET DISK ADRES, WHERE ERROR OCCURED 
GO TO 'BDA4' I BREAK CONTENTS OF 
SREG10 INTO DR #,CYL ,SUR,SEC BITS 
CNTRL RDY DID NOT SET ON COMPLETION 
OF 'WRITE FORMAT'. ON SECTOR AS 
SHOWN IN <DSK-ADRES> 

WRT FNT WAS DONE STARTING AT <DSK-ADRES> 
INDICATED IN EROR MSGE. 
DID SIN BIT SET? 
NO, BRANCH 

GO, GET RKCS. ER, DS 

GET. DISK-ADRES WHERE ERROR OCCURED 

SIN SET WHILE DOING WRT FMT 
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J J J 1 








J J JC 


U 1 u > uu 


UUh f jf 


071 

UC 1 CCD 


J J J J 








J J j*» 


ni n7nA 


1 UhUjc 




J J J J 
















J J J r 


















Ain7nA 
U 1 Ur uo 




0?1 37" 
Uc 1 c ' 


J JuU 








jjO I 


ni 071 ? 


lAAATT 
1 UhU J J 




jjOc 








J jO J 








J jOh 










nin7i A 

U 1 V f 1 


nn^?ni 

WW Jew 1 




J JUU 


ni n7i <k 


nnspn^ 

Uw JC W J 




7SA7 

jjO f 




n?77n? 

WC C ' wc 


1 7777A 

Iff f f o 


J JuO 










ni n7P^ 


nninn? 

WW 1 wwC 




J J 1 u 


ni n7PA 

V 1 U f cu 


nA?7ns 

wOC 1 w J 


nnnnn^ 

WWWWwH 


7S71 


nin77P 

V 1 V r JC 


Uw JC wc 




jJiC 








J J 1 J 


nin77A 


nni 71 7 

WW 1 J 1 J 












J 3 f J 








J J 1 o 


ni n77A 

U 1 w f ju 


ni P7n? 

W 1 C ' vC 


\ f 1 f UH 


jjii 


nin7^p 


n^?70i 

vHC r w 1 


nonnx7 

wwww J f 


7S7R 

J J r O 


nin7^A 

V 1 V r HO 


nns7nx 

WW J r W J 




Djty 


nin7S0 

U 1 U r J V 


nni nnA 

WW 1 WWO 






nin7S? 

V 1 V r JC 


nnspn^ 

wU JcUJ 




JJO 1 


nin7Si 

V 1 U r JH 


vDC f w 1 


nonnpQ 

Wl/WwCW 




nin7An 

w 1 w r OU 


ninins 

V 1 V 1 V J 




J JO J 


w 1 U r DC 


WW JCv J 






\J \\J f OH 


nnnA77 

wWwO f f 




J JO J 


nin7A/^ 

V 1 V r OO 


nA?7Qi 

wOC f w 1 


nnon^n 


J JOO 


ni077? 

w 1 u r r C 


ninins 

W 1 V 1 V J 






nin774 

V 1 u r f H 


nnspns 

WW JC V J 




J JOO 


nin77A 

U 1 1/ r r O 


nnsnnx 

WW Jww J 




J JOT 


ni IflflO 


WW JCVH 




J JTU 


01 1 007 

V 1 1 wvC 


001 770 




J jy 1 








J jyc 








7S0X 








J J 








jJt J 








J J TV 








J JT r 








J J TO 








J JTT 








3600 








3601 








3602 








3603 








360A 








3605 
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T23 CHECK 'URITE FORMAT' OF THE DISK 

.-TO DISK-ADRES (AS IN tREG3) 

4J: JSR PC.CHKHE1 ;CHECK IF 'ERR' OR 'HE' BIT IS SET 

.•IF YES. RETURN HERE. 
ERROR 32 :HE OR ERR SET UHILE DOING WRITE 

.-FORMAT ON SECTOR AS INDICATED IN 
.-<DSK-ADRES> 

;yRT FHT UAS DONE STARTING AT <DSK-ADRES> 
.-INDICATED IN EROR nSGE. 
5$: JSR PC.CHK0A1 .-CHECK IF RKDA INCREMENTED CORRECTLY. 

;IF NOT. RETURN HERE. 

ERROR 33 ;RKDA DID NOT INCREMENT CORRECTLY 

.-AFTER 'yRITE FORMAT' WAS DONE 
;T0 THE SECTOR PREVIOUS TO THAT 
: INDICATED IN 'EXPCTD' RKDA 
6S: INC R1 ; INCREMENT TO THE NXT SECTOR 

INC R5 INCREMENT R5, TO WHAT RKDA WILL INCREMENT 

CMP «-2.R2 :R U GOING TO FORMAT THE LAST SECTOR 

;IN THE CYLINDER ? 

BNE .^6 ;IF NOT. BRANCH 

ADD fA.R5 .-INCREMENT R5 CORRECTLY TO 'EXPCTD RKDA' 

INC R2 .-HAVE U FORMATTED ALL 12 SECTORS 

:0N THIS CYLINDER 
BNE IS .-IF NOT, LOOP BACK ft FORMAT THE 

.•NEXT SECTOR 

;YES 

MOV «-U.R2 ;RESET THE COUNT FOR 12 SECTORS 

BIC #37. R1 .-CLEAR THE SEC ADRES BITS 

TST R3 .-SURFACE 1? 

BNE 8t ;YES. BRANCH 

INC R3 .-NO. SET FLAG 

ADD #20. R1 .-INCREMENT TO THE NXT SURFACE 

MOV R1.R5 ;THIS IS WHAT RKDA SHOULD 

INC R5 .INCREMENT TO. 

BR 1S :G0, DO NXT SURFACE 

8S: ADD fAO.Rl INCREMENT TO NXT CYL 

MOV R1.R5 ;POSITION FOR 

INC R5 ;EXPCTD RKDA 

CLR R3 

INC RA .-HAVE U FORMATTED ALL 203 CYLINDERS 

BNE IS ; IF NOT. LOOP BACK I FORMAT THE 

.-NEXT CYLINDER 



.-*TEST 2A CHECK 'READ FORMAT' FOR THE ENTIRE DISK 

•THIS TEST READ FORMATS THE ENTRE DISK. WHICH WAS WRT 
•FORMATTED IN THE PREVIOUS TEST. THE FOLLOWING CHECKING 
•IS DONE 

CNTRL ROY SETS Wi.HIN A CERTAIN TIME ON COMPLETION 

FUNCTION 

IF 'SIN' OCCURRED? 
IF 'HE' OR 'ERR' OCCURRED? 
RKDA INCREMENTED CORRECTLY. 
IF THE CORRECT HEADER WAS READ. 



SEO 0066 



• 1. 
•OF 
•2. 
•3. 
•4. 
•5. 
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JO 1 c 






















01 1004 


000004 






JO 1 J 


w 1 1 vvo 


01P757 


0000C1 

wvvww 1 


001 ?06 

OV 1 c vo 


JV 1 o 


011014 


012757 

W 1 C • J • 


01 1 100 

VIII WO 


001 110 

MM I 1 1 V 


^61 7 

JW 1 f 










^618 

JO 1 O 


011022 

w 1 1 wC C 


005057 

MM JW J r 


001 556 

WW 1 J JO 




JO 1 T 










JOC w 


01 1026 

W 1 1 WC w 


01 5701 

V 1 J F V 1 


001 350 

V W 1 J ^ w 




JOfc ■ 


011052 

W 1 1 W JC 


010102 

W I W 1 WC 








011054 

W 1 1 W J^ 


005737 

O V J ' J ■ 


001 544 

WW 1 J~~ 




JVC J 


011040 


001410 

WW 1 ^ 1 w 






JOC~ 


01 1042 


052701 

V JC f V 1 


014555 

O 1 ^ ^ J J 




5625 

JWb J 










JOCO 










5627 

JOC f 


01 1046 

w < < w^ o 


05P702 

V J C ' WC 


014540 




5628 

JOCO 










5629 

JOC ' 


011052 

VI 1 V C 


012737 

W < C ' J • 


1 77717 


001570 

WW 1 J ' W 


5650 

JO JW 










5651 

JO J 1 


01 1060 

w 1 1 vow 


000407 

w WW^ w » 






5652 

JO JC 


01 1062 

w < ( woe 


012705 

W 1 C ■ V J 


177465 




5655 

JO J J 


01 1066 

VII woo 


012737 

VIC' J ■ 


177764 


001370 

WW I J » w 


56 5A 

JO J~ 










3635 


01 1074 


062702 

WC ■ wt 


000020 

WWW w t w 




3636 

JW JW 










3637 

J W J ' 


011100 

Will WW 


104413 






3638 

JW JW 










3639 










3640 

J W ~ w 










3641 

JW^ 1 










3642 










3643 

JW^ J 










5644 

J W~ ~ 










5645 

JO^ J 










5646 

JW^ w 










5647 

JO~ » 










3648 

JW~ w 


011102 

will WC 


104421 

1 W^ ^ t 1 






3649 










3650 

JW ^ w 










3651 

JW ^ ' 


01 1 104 


012703 


033342 

W J J J~ 




3652 

JO ^ 


01 1 1 10 


005037 


001 360 




5653 

JO ^ J 


011114 


010377 


170216 




3654 

JO 










3655 


011120 


013777 


001370 


1 70206 


3656 










3657 










3658 


011126 


010177 


1 70206 




3659 










3660 


011132 


012777 


002005 


170172 


3661 
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T24 CHECK 'READ FORMAT' FOR THE ENTIRE DISK 

*6. IF RKUC OVERFLOWED CORRECTLY. 

*12 SECTORS (1 CYLINDER) ARE READ AT A TIME. IF 'SIN' 
•OCCURS A DRIVE RESET IS DONE BEFORE READING THE NEXT 
•SECTOR. READING IS DONE IN THIS ORDER CYL 0-SUR 0; 
•CYL 0-SUR 1; CYL 1-SUR 0; CYL 1-SUR 1; CYL 2-SUR 0; 

•CYL 2-SUR 1; CYL 312-SUR 1. IF TESTING ON SIMULATOR, ONLY 

•THE LAST CYLINDER (312), LAST SECTOR (13), SURFACE 1 IS READ. 



SEQ 0067 



TST24: 



12$: 



IS: 



IIS: 



SCOPE 

nov 
nov 

CLR 
HOV 

nov 

TST 
BEQ 
BIS 



BIS 
NOV 
BR 

nov 
nov 



#1.STIHES 
fIS.SLPERR 

INDX1 

DRIVAD,R1 
R1.R2 

sinuL 

12S 

#14533. R1 



#14540, R2 
#-1,EFLG1 
IS 

#-313, R5 
#-14,EFLG1 



ADD #20, R2 
CNT. RESET 



TST. SIN 



nov 

CLR 

nov 
nov 

nov 
nov 



#0UTBUF,R3 

INDX2 

R3,aRKBA 

EFLGl.BRXUC 



R1,aRKDA 
«2005,aRKCS 



;D0 1 ITERATION 
SET RETURN ADRES FOR LUPING 
ON ERROR (Sy 9) 

INDX1=0, SURFACE 0 BEING READ 
INDX1=1, SURFACE 1 BEING READ 
GET DRIVE ADRES 

TESTING ON SIMULATOR? 
NO BRANCH 

SET BITS FOR CYL 312, SEC 13, SUR 1 

ON SIMULATOR, CHECK ONLY CYL 312, 

SECTOR 13, SURFACE 1 

RKDA SHOULD INCRMNT TO THIS AFTR 

RD FMT OF 1 SECTOR 

SET COUNT FOR READING HDR 

FROM 1 SECTOR ONLY 

SET UP COUNT FOR 203 CYLINDERS 
SET COUNT FOR 12 HDRS TO BE 
READ FROn EACH CYLINDER 
THIS IS WHAT RKDA SHOULD INCREMENT 
BY, AFTER 'RD FMT' OF EACH CYLINDER 
GO. DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED, 
THIS IS A VERY BASIC ERR I IF IT 
OCCURS GO BACK TO TEST 10 

;CHECK IF SIN IS SET 

;IF SET DO DRV-RESET TO CLR IT 

: STORE ADRES OF BUFFER 

ADRES TO WHICH DATA IS TO BE X-FERRED 
FROM THE DISK 

SET UP WORD COUNT FOR 12 HEADERS 
TO BE READ OFF EACH CYLINDER 
(ONLY 1 FOR SinULATOR) 
ADRES THE DRIVE WITH CORRECT 
CYLINDER I SECTOR ADRES 
READ FORnAT, GO 
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011 140 

Will "t V 


105777 

1 w J f ' ' 


1 70166 

1 r V I WW 




?i- 


TSTB 

1 W I w 


wn K w 


3663 


01 1144 

will "tt 


1 0041 1 

1 Vw~ 1 1 








BMI 

on A 


3t 


3664 


01 1 146 


005237 

WW J * 


001 360 

WW 1 J\J\J 






INC 


INDX2 


366 S 


01 1 1 S? 

will JC. 


001 37? 

WW 1 ^ ' C 








BNE 




3666 
















3667 


01 11 54 

will 


004737 

ww*f r V ' 


020774 

wC w • • 






JSR 

^ wn 


PC GT4RG 


3668 


011160 

Will WW 


0101 37 

W > W I ^ ■ 


00120? 

WV ■ cvc 






NOV 


R1 tREGIO 


3669 

^ WW ' 
















36^0 


011164 


104416 








BRKDA4 




3671 
















367? 


01 1 166 

will W 


104045 








ERROR 


45 


3673 
















3674 
















3675 
















3676 
















3677 
















3678 

^W ■ w 
















3679 


011170 


032777 


001000 


170130 


3S: 


BIT 


#1000.aRKDS 


3680 


011176 


001405 








BEQ 


4S 


3681 


011200 


004737 


021002 






JSR 


PC.6T3RG 


3682 


011204 

W 1 ■ ^ w^ 


010137 


001170 






nov 


R1 .SREG3 


3683 
















3684 


011210 


104001 








ERROR 


1 


3685 
















3686 
















3687 


01 1212 


004737 


021226 




4S: 


JSR 


PC.CHKHEl 


3688 
















3689 


011216 


1 04046 








ERROR 


46 


3690 
















3691 
















3692 
















3693 
















3694 


011220 


020277 


170114 




5S: 


CHP 


R2.aRKDA 


3695 


011224 


001410 








BEQ 


6S 


3696 


01 1226 


010237 


001202 






nov 


R2<SREG10 


3697 


011232 


104415 








BRKDAO 




3698 
















3699 


011234 


017737 


170100 


001202 




nov 


aRKDA. tREGIO 


3700 


011242 


104416 








BRKDA4 




3701 
















3702 


011244 


104040 








ERROR 


40 


3703 
















3704 
















3705 
















3706 


011246 


013700 


001370 




6S: 


nov 


EFLGl .RO 


3707 
















3708 


011252 


010104 








nov 


Rl ,R4 


3709 


011254 


042704 


160037 






SIC 


f 160037, R4 


3710 


011260 


020413 






7$: 


cnp 


R4, (R3) 


3711 


011262 


001412 








BEQ 


8S 


3712 


011264 


010437 


001164 






nov 


R4,SREG1 


3713 


011270 


011337 


001166 






nov 


(R3),SREG2 


3714 


011274 


010037 


001162 






nov 


RO.SREGO 


3715 


011300 


062737 


000014 


001162 




ADD 


f14,SREG0 


3716 
















3717 


011306 


104043 








ERROR 


43 
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THE ENTIRE DISK 



SEQ 0068 



;D1D CNTR1 RDY SET? 
' YES BRANCH 

■NO. 'have u waited long enough? 

:IF not, LOOP BACK I WAIT FOR IT 

;1F YES. REPORT ERROR 

;G0. GET RKCS. ER. DS.DA 

;GET DRIV-ADRES STARTING UHICH 

.-'READ FORMAT' WAS DONE 

:G0 TO 'BDA4' t BREAK CONTENTS OF 

.SREGIO INTO DR f .CYL.SUR.SEC BITS 

:CNTRL RDY DID NOT SET AFTER 

.•READ FORMAT. 'RKDA' IN EROR nSGE 

.-GIVES THE CONTENTS OF RKDA AT THE 

;TinE OF ERROR. 

.-READ FHT WAS DONE STARTING AT <DSK-ADRES> 
.■INDICATED IN EROR nSGE. 

;DID 'SIN' SET? 

:N0. BRANCH 

:G0, GET RKCS. ER. DS 

;GET DISK-ADRES WHERE 'SIN' 

;0C CURED 

:SIN ERROR ON DOING RD FnT 
;T0 CYL INDICATED IN $REG3 

:CHECK IF 'ERR' OR 'HE' BIT IS SET, 

;IF YES. RETURN HERE. 

:HE OR ERR WHILE DOING A READ 

.-FORHAT. 'RKDA' IN EROR nSGE GIVES 

.-THE CONTENTS OF RKDA AT THE TinE OF ERROR 

.-READ FHT WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR HESGE 

:DID RKDA INCREMENT CORRECTLY BY 12 SEC 

;GET EXPCTD RKDA 

;G0 TO 'BDAO' % BREAK CONTENTS OF 
:$REG10 INTO DR f .CYL.SUR.SEC BITS 
;GET RECVD RDKA 

:G0 TO 'BDA4' % BREAK CONTENTS OF 
;$REG10 INTO DR i. CYL.SUR.SEC BITS 
:RKDA DID NOT INCREMENT BY 12 SECTORS 
.•AFTER RD FMT WAS DONE. ADRES 
;0F CYLINDER IN ERROR CAN BE OBTAINED 
.•FROM 'EXPCTD' RDDA 

.SET UP COUNT FOR 12 HEADERS TO B CHKD 
.-(ONLY 1, IF SIMULATOR) 
;GET DRIV-ADRES FROM WHERE RDFMT WAS DONE 
:GET THE CYLINDER ADRES ONLY. (HEADER) 
:IS THE RECVD HEADER SAME AS EXPCTD? 

;GET EXPCTD HEADER WORD 
.-GET HEADER WORD RECVD 

.-GET THE SECTOR (OCTAL NO) WHICH DID 

.-NOT GIVE THE CORRECT HEADER 

;DID NOT RECIEVE THE CORRECT HEADER 
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3720 


01 1 310 


005723 




3721 








3722 


011312 


oospon 

WW J C vw 




3723 


w 1 i J 1 "f 


MM \ JO 1 




3724 








3725 








3726 


01 1 316 




021316 

wC 1 J I U 


3727 








3728 


01 1 322 


1 04041 

1 V"f V"f 1 




3729 








3730 








3731 








3732 


011324 


005737 

V V J t J 1 


001 344 

V V 1 J~ ~ 


3733 


01 1 330 

V 1 ■ J J\i 


001031 

V V 1 V ^ 1 




373A 








3735 


011332 

V I I J 


005737 

V V J 1 J 1 


001356 

V V 1 -J J\i 


3736 


011336 


001011 




3737 


01 1 340 


005237 


001 356 

V V 1 J 


3738 


011344 


062701 


000020 

V V V Vb V 


3739 


01 1 350 

V • 1 ^ ^ V 


010102 

V 1 V 1 Vb 




3740 


01 1352 

VI 1 ^ ^ 


062702 

V'Jb • Vb 


000020 

V V V Vfc V 


3741 








3742 


011356 


000137 

VVV 1 J » 


01 1 100 

VIII vv 


3743 


01 1 362 


005037 

\J \J J \J J 1 


001356 

V V 1 J J\J 


3744 


01 1 366 


042701 


000037 

www » 


3745 


011372 


062701 


000040 

V V V V^ V 


3746 


011376 


010102 




3747 


01 1400 

VI • ~ w 


062702 

• vc 


000020 

V V V Vb V 


3748 


01 1404 


005205 




3749 


01 1406 


001402 




3750 


011410 


000137 


01 1 100 


3751 








3752 








3753 








3754 








3755 








3756 








3757 








3758 








3759 








3760 








3761 








3762 








3763 








3764 








3765 








5766 








3767 








3768 








3769 








3770 








3771 








3772 








3773 









T24 



8S: 
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CHECK 'READ FORMAT' FOR THE ENTIRE DISK 



SEC 0069 



9$: 



10S: 



TST 

INC 
BNE 



JSR 
ERROR 



TST 
BNE 

TST 
BNE 
INC 
ADD 

nov 

ADD 

JHP 

CLR 
BIC 
ADD 

nov 

ADD 
INC 
BEQ 
J«P 



(R3J* 

RO 
7S 



PC.CHKUC 
41 



sinuL 

TST25 
INDX1 

lot 

INDX1 
#20. Ri 
R1,R2 
«20.R2 

It 

INDX1 
#37. R1 
#40. R1 
R1.R2 
#20. R2 
R5 

TST25 
It 



WORD FROM 'SECTOR' AS INDICATED 

(NOTE SECTOR # IS OCTAL) 

INCREMENT POINTER TO THE NXT WORD 

IN HEHORY WHERE THE RECVD HDR IS STORED 

HAVE U CHECKED ALL 12 HEADERS? 

IF NOT, LOOP BACK % CHK THE NXT. 

YES. ALL HEADERS FOR THIS CYLINDER 

CHECKED. 

CHECK IF RKUC OVERFLOWED TO 0. IF 
NOT RETURN HERE. 

RKUC DID NOT OVERFLOW AFTER DOING 

RDFRT OF 12 SECTORS ON THE CYLINDER 

NOTE THAT 'RKDA' IS THE INCREMENTED 

RKDA AFTER THE RDFHT 

TSTING ON SIMULATOR? 

;IF YES. EXIT 

NO 

DOING SURFACE 1 
YES. BRANCH 
NO 

INCREMENT DRIV ADRES TO THE NXT SURFACE 

THIS IS WHAT RKDA SHOULD INCREMENT 
TO, AFTER READ FMT OF THE CYLINDER 
GO RD FMT THE NXT SURFACE 

CLR SEC. SURFACE BITS 
INCREMENT TO NXT CYL 
THIS IS WHAT RKDA SHOULD BE 
AFTER RD FMT OF CYLINDER 
HAVE U DONE ALL CYLINDERS? 
;EXIT 

IF NOT, LOOP BACK I READ FMT FROM 
THE NXT CYLINDER 



.-•TEST 25 CHECK 'READ' OF THE ENTIRE DISK 

;*READ OF THE ENTIRE DISK (ONE WORD PER SECTOR) IS DONE 
*IN THIS TEST. IN A PREVIOUS TEST THE FIRST WORD OF 
*EVERY SECTOR WAS WRITTEN LIKE A PSUEDO-HEADER (DRIVE #. 
^CYLINDER #, SURFACE I SECTOR #). THESE PSUEDO HEADERS 
«WILL BE READ t CHECKED IN THIS TEST, PROVING THAT ANY 
•SECTOR CAN BE ACCESSED AND READ. 
«THE FOLLOWING CHECKING IS DONE 

*1. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
•OF FUNCTION. 
•2. IF 'SIN' OCCURRED? 
♦3. IF 'HE' OR 'ERR' OCCURRED? 
•4. THE CORRECT FIRST WORD FROM EVERY SECTOR 
•WAS RECEIVED. THIS WORD REFLECTS THE ABSOLUTE 
•DISK ADDRESS (DRV #, CYL #. SUR, SEC#) OF THAT SECTOR. 
•5. IF RKDB CONTAINED THE CORRECT WORD. 
•IF 'SIN' OCCURS DRIVE RESET IS DONE BEFORE READING 
•THE NEXT SECTOR. READ IS DONE IN THIS ORDER SEC 0-11 
•CYL 0 SUR 0 -> SEC 0-11 CYL 0 SUR 1 -> SEC 0-11 CYL 1.., 
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J » ' J 










^77A 










^777 

Jiff 


01 1414 


000004 






^778 

J f r o 


01 141 A 


01 ?737 

\J \ C f Jf 


000001 


001 ?0^i 

W V 1 C vu 


X77Q 


01 1474 


01 P737 


01 1470 

w 1 1 ** r V 


001 1 1 n 


J f ou 










J r O 1 


011439 


01 ?703 


03334? 




^787 


01 143A 


00^004 

WW J WH 






^78^ 

J ' O J 










^78^ 

J f OH 


01 1 440 
\j \ \ ■♦•♦1/ 


01 3701 


001 3S0 

WW 1 JJ\i 




J 1 O J 


01 1444 


00S737 

WW J f J f 


001 344 






01 14S0 


001403 

WW 1 •♦w J 






^787 


01 14S? 


0SP701 

V </C r V 1 


014^33 






01 14S6 

V 1 1 "* JU 


000404 

V VV"* W"* 










01?700 

V 1 C f wV 


1 77764 

1 f r f v" 








01 ?70S 


If r H V J 




J r 7 1 










^79? 


01 1470 


104413 

1 V^"* 1 J 






^79? 










^794 










3795 










3796 






























3799 










3800 










3801 










380? 


01 1472 


104421 

1 V~^C 1 






3803 










3804 


01 1474 

VI 1 ^ r ^ 


005037 

V V J\iJ f 


001356 

V V 1 J ^ w 




3805 


01 1500 

W 1 1 ^vv 


010377 

V t V J ' > 


167632 

1 V > V 




3806 










3807 


01 1 504 

VII ^v^ 


012777 

VIC* » ' 


177777 


16762? 

1 W ( VC C 


3808 


01 1 512 

VI 1 1 


010177 


167622 

I V * Vfc b 




3809 










3810 


011516 

VI i ^ 1 V 


012777 

VIC' ' ' 


000005 

V wV V V J 


167606 

IV' V VV 


381 1 










3812 


011524 

VI \ 


105777 

1 V */ » f f 


167602 

1 V > V Vb 




3813 


C11530 

w 1 1 ^ -JyJ 


10041 1 






38K 


01 153? 


005237 


001356 

V V 1 ^ ^ V 




381 5 


01 1 536 

V 1 1 ^ J9 


001372 

VV 1 ^ ■ 






3816 










3817 


01 1540 

V f 1 V 


004737 

V V^ f J f 


020774 

VC V f f 




3818 


01 1 544 

VII 


010137 

V 1 V 1 J f 


001202 

VV 1 C VC 




3819 


011550 

V 1 1 y ^v 


104416 

1 V^^ 1 V 






3820 










3821 


01 1552 

VI 1 ^ 


104045 






3822 










3823 










3824 










3825 










3826 










3827 


011554 


012777 


001000 


167544 


3828 


011562 


001405 






5829 


011564 


004737 


021002 
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T25 CHECK 'READ' OF THE ENTIRE DISK 

:*IF TESTING ON SIMULATOR ONLY LAST CYLINDER (312), LAST 
.•♦SECTOR (13), SURFACE 1 IS READ. 



SEQ 0070 



TST25; 



10$: 



1S: 



8S- 



2S: 



3$: 



SCOPE 

MOV 

NOV 

NOV 

CLR 

NOV 

TST 

BEQ 

BIS 

BR 

NOV 

NOV 



#1.$TINES 
#1S.SLPERR 

«0UTBUF.R3 
R4 

DRIVAD.R1 
SINUL 

lot 

#14533. R1 
IS 

#-14. RO 
#-313. R5 



CNT.RESET 



TST. SIN 

CLR 
NOV 



NOV 
NOV 

NOV 

TSTB 
BNI 
INC 
BNE 

JSR 
NOV 

BRKDA4 



IN0X1 
R3.aRKBA 

#-1.aRKUC 
Rl.aRKDA 

#5,aRKCS 

aRKCS 
3$ 

INDX1 
2$ 

PC.GT4RG 
RI.SREGIO 



ERROR 45 



BIT 
BEQ 
JSR 



#1000.aRKDS 
4S 

PC.GT3RG 



;D0 1 ITERATION 

SET RETURN ADRES FOR 

LOOPING ON ERROR (SU9) 

FLAG, CLEAR WHEN READING SURFACE 0 
SET WHEN READING SURFACE 1 
'5FT DRIVE ADDRESS 
TSTING ON SIMULATOR? 
IF NOT BRANCH 

SET ADRES BITS FOR LAST CYL (312) 
LAST SECTOR (13), SURFACE 1 
SET COUNT FOR 12 SECTORS 
SET UP COUNT FOR 203 CYLINDERS 

GO. DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TINE 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT.RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR I IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK SIN, IF SET DO 
DRIVE RESET TO CLR IT 

ADRES TO WHICH DATA IS TO B X-FERRED 

FRON THE DISK 

SET UP WORD COUNT 

ADRES THE DRIVE WITH CORRECT 

CYLINDER I SECTOR ADRES 

READ, GO 

DID CNTRL RDY SET? 
YES BRANCH 

NO, 'have U WAITED LONG ENOUGH 
IF NOT, LOOP BACK & WAIT FOR IT 
IF YES, REPORT ERROR 
GO. GET RKCS, ER, DS,DA 
GET DISK-ADRES WHERE ERROR OCCURED 
GO TO 'BDA4' ( BREAK CONTENTS OF 
IREGIO INTO DR #,CYL .SUR.SEC BITS 
CNTRL RDY DID NOT SET AFTER DOING 
A 1 WORD READ FROM ADRES AS 
INDICATED IN <DISK-ADRES> 
'RKDA' IN EROR NSGE GIVES THE 
CONTENTS OF RKDA AT THE TINE OF ERROR 

DID 'SIN' SET? 
NO, BRANCH 

GO, GET RKCS, ER, DS 
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5850 


01 1 570 


010137 


001 1 70 


nov 


3851 


01 1 574 


104001 




ERROR 


5832 










5833 


011576 


004737 


021226 4$; 


JSR 


3854 










385S 


01 1602 


104046 

1 w ~ w ~ W 




ERROR 


5856 










3837 










3838 










5859 










5840 


01 1604 


0201 1 5 


5S: 


CMP 


5841 


011606 


001407 




6EQ 


5842 


011610 


010157 


001162 


nov 


5845 


01 1614 


011557 


001164 


nov 


5844 


011620 


010137 


001166 


nov 


5845 


011624 


104044 




ERROR 


5846 










5847 










5848 










5849 










5850 










5851 










5852 










5855 










5854 


011626 


020177 


167510 6$: 


cnp 


3855 


011632 


001406 




BEQ 


3856 


011634 


010137 


001 162 


nov 


5857 


011640 


017757 


167476 001164 


nov 


5858 


011646 


104057 




ERROR 


5859 










5860 










5861 










3862 










3863 










5864 










5865 










5866 


011650 


005737 


001344 7S: 


TST 


3867 


01 1654 


001022 




BNE 


5868 


011656 


005201 




INC 


5869 


011660 


005200 




INC 


3870 


011662 


001302 




BNE 


3871 










3872 


011664 


012700 


177764 


nov 


3875 


011670 


042701 


000037 


BIC 


5874 


011674 


005704 




TST 


3875 


011676 


001004 




BNE 


5876 


011700 


005204 




INC 


3877 


011702 


062701 


000020 


ADD 


3878 


011706 


000670 




BR 


3879 


011710 


005004 


9S: 


CLR 


3880 


011712 


062701 


000040 


ADD 


3881 


011716 


005205 




INC 


3882 


011720 


001263 




BNE 


3883 










3884 










3885 











nAcrn 30a(1052) 2i-rEB-78 

T25 CHECK 'READ' Of THE 



R1.$REG3 

1 



PC.CHKHEI 
46 



R1.(R3) 
6S 

R1 .SREGO 
(R3),$REG1 
R1,SREG2 
44 



Rl,aRKDB 
7$ 

R1, SREGO 
SRKDB.SREGl 

37 



sinuL 

TST26 
R1 
RO 
IS 

#-14. RO 
#37. Rl 
R4 
9S 
R4 

#20. Rl 
IS 

R4 

#40, Rl 

R5 

IS 



6 
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ENTIRE DISK 



SEQ 0071 



GET DISK-ADRES WHERE SIN 0CCURED3 

'SIN' ERROR ON DOING READ FROn 

DISK-ADRES INDICATED IN SREG5 

CHECK IF 'ERR' OR 'HE' BIT IS SET. 

IF YES. RETURN HERE. 

'HE' OR 'ERR' ON DOING A READ OF 

1 yORD FROn ADRES AS INDICATED 

IN <DISK-ADRES> 

'RKDA' IN EROR HSGE GIVES THE 

CONTENTS OF RKDA AT THE TIME OF EROR 

UAS THE CORRECT DATA WORD RECVD? 

GET EXPCTD DATA WORD 
GET DATA WORD RECVD 
GET DISK>ADRES 
DID NOT RECIEVE THE CORRECT 
DATA WORD FROH DISK ON DOING 
1 WORD READ FROM 'DISK-ADRES' 
AS INDICATED BY 'EXPCTD' DATA WORD 
NOTE THAT IN A PREVIOUS TEST THE 
FIRST WORD OF EACH SECTOR IS UNIQUELY 
WRITTEN WITH A WORD GIVING THE 
ABSOLUTE ADDRESS OF THAT SECTOR IN 
TERnS OF. DRIV #. CYL ADRES. SUR. SEC ADRS. 
DOES RKDB CONTAIN CORRECT WORD 
YES, BRANCH 
NO, GET EXPCTD RKDB 
:GET RKDB RECVD 
;RKOB ERROR ON READ. 
;FOR RK11C. AFTER A READ RKDB 
iCONTAINS CHECKSUn FOR THE SECTOR 
;READ. 

;WHEREAS FOR RK11D, AFTER READ 
RKDB CONTAINS THE LAST WORD 
:READ FROM THAT SECTOR t 
;X-FERRED TO MEMORY 
; TESTING ON SIMULATOR? 
;;IF YES. EXIT 

; INCREMENT TO ADRES NEXT SECTOR 
;HAVE U CHKD ALL 12 SECTORS? 
;IF NOT. LUP BAK ( CHK THE NXT 
;IF YES... 

iRESET THE COUNT FOR 12 SECTORS 
;CLEAR SECTOR. SURFACE BITS 
;DOING SURFACE 1? 
;YES. BRANCH 
;N0 

; INCREMENT THE ADRES TO NXT SURFACE 
;G0 READ SURFACE 1 

; INCREMENT TO NXT CYL 

;HAVE U CHKD ALL 203 CYLINDERS 

;IF NOT. LOOP BACK ft CHK THE NXT CYLINDER 

;YES 
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3387 










3888 










3889 










3890 










3891 










3892 










3893 










389A 


011722 


000004 






3895 


011724 


012737 


000005 


001206 


3896 


011732 


012703 


001372 




3897 










3898 


011736 


005037 


001356 




3899 










3900 


011742 


013700 


001332 




3901 


011746 


013701 


001326 




3902 


011752 


013702 


001330 




3903 


011756 


012737 


011764 


001110 


390A 










3905 


011764 


000240 






3906 


011766 


104413 






3907 










3908 










3909 










3910 










3911 










3912 










3913 










39U 










3915 










3916 


011770 


'•04421 






3917 










3918 










3919 










3920 


011772 


013704 


001350 




3921 


011776 


051304 






3922 


012000 


010477 


167334 




3923 


012004 


012710 


000011 




3924 










3925 


012010 


104412 






3926 










3927 


012012 


104021 






3928 










3929 










3930 










3931 


012014 


005005 






3932 


012016 


032711 


0001 or 




3933 


012022 


001005 






393A 


012024 


005205 






3935 


012026 


001373 






3936 


012030 


004737 


020774 




3937 


012034 


104026 






3938 










3939 


012036 


032711 


001000 




3940 


012042 


001403 






3941 


012044 


004737 


020774 
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:*TEST 26 CHECK 'SEEK' FUNCTION, WITH DIFFERRENT VELOCITY MODES 

;• THIS TEST CHECKS SEEK IN DIFFERENT VELOCITY MODES (OIFF <3. 
;• 3 < DIFF < 31. DIFF > 31). FOR THESE 3 BASIC VELOCITIES SEEK IS DONE 
;• IN FUD AND REV DIRECTION TO CHECK THE ADDER I DIFFERENCE LOGIC. IF 

WHILE DOING A SEEK 'SIN' OCCURS, A DRIVE RESET IS DONE TO INITIALIZE 

THE POSITIONING LOGIC 



SEO 0072 



BOTH 



TST26: 



IS: 
2S: 



4$: 
5t: 



6S: 



SCOPE 

MOV 

MOV 

CLR 

MOV 
MOV 
MOV 
MOV 



f5,STIHES 
fSEEK0,R3 

INDXl 

RKCS.RO 
RKDS.RI 
RKER,R2 
flS.SLPERR 



NOP 

CNT. RESET 



TST.SIN 



MOV 

BIS 
MOV 
MOV 



DR1VAD.R4 
(R3),R4 
R4,aRKDA 
fll.aRO 



CHKCRDY 
ERROR 21 



CLR 
BIT 
BNE 
INC 
BNE 
JSR 
ERROR 

BIT 
BED 
JSR 



R5 

#100, aR1 

6t 

R5 

5S 

PC,GT4RG 
26 

#1000. SRI 
7t 

PC.6T4RG 



:;D0 5 ITERATIONS 

.•INITIALIZE POINTER TO THE FIRST 

.SEEK ADDRESS 

; INDXl, WHEN 0 INDICATES SEEK IN FUD DIRECTION 
WHEN 1 ir.CATES SEEK IN REV DIRECTION 



.-SET RETURN ADRES FOR LUPING ON 
:EROR (SW 9) 

;G0. DO CONTROL RESET 
;THIS IS A CALL FOR THE 'CNTRL- 
;RESET' ROUTINE. A CONTROL RESET IS 
.■ISSUED AND AFTER A CERTAIN TIME 
;IF THE 'CNTRL RDY' DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 
:THE PC IN ERROR MESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 
:THIS IS A VERY BASIC ERR ( IF IT 
.•OCCURS GO BACK TO TEST 10 
;G0. CHECK IF SIN IS SET. IF SET 
;D0 DRV-RESET TO CLEAR IT 



;GET DRIV-ADRES 
;SET CYLINDER BITS 
.-ADDRS THE DRIVE 
;SET 'SEEK'. 'GO' 

;G0 CHECK IF CONTROL RDY IS SET 
;IF SO. SKIP THE EROR MESSAGE. 
; 'CNTRL RDY' DID NOT SET AFTER 
.•SENDING CYL ADD TO THE DRIV. 'ADD ACK' 
;FROM DRIVE SHLD HAVE COME BACK 
; THEREUPON SETTING 'CNTRL RDY' 

;DID R/W/S RDY SET? 

.YES. BRANCH 

.•NO, WAIT 

.•WAITED LONG? 

:G0, GET RKCS, ER. DS. DA 

;R/W/S RDY DID NOT SET ON 

.COMPLETION OF SEEK 

.-DID SIN SET? 

;N0. BRANCH 

.•GO. GET RKCS. ER. DS. OA 
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3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 

3958 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3'c • 

5085 

3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 



012050 
012052 
012056 
012060 
012064 



012066 
012072 
012074 
012100 
012106 



012110 
012114 
012116 
012122 
012130 

012132 
012136 
012144 
012152 
012156 
012160 
012164 
012166 
012172 
012176 
012204 



012206 
012212 
012214 
012216 
012222 
012224 
012230 
012232 
012234 
012240 



104001 
032710 
001403 
004737 
104022 



022710 
001406 
011037 
012737 
104024 



020477 
001406 
010437 
017737 
104027 

010477 
012777 
012777 
012710 
104414 
021337 
001410 
005037 
011337 
013737 
104043 



005737 
001007 
005723 
022703 
001260 
005237 
005743 
005743 
022703 
001251 



140000 
020774 

000210 

001164 
000210 

167224 

001162 
167212 



001162 
001164 
033342 



001 3j6 

001400 
001356 

001370 



T26 
7t: 



SEQ 0073 



8S: 



001162 



001164 



167202 

033342 167172 
^77777 167162 
002005 

033342 



10t: 



001166 



11$: 



12S: 



ERROR 

BIT 

BEQ 

JSR 

ERROR 



CUP 
BEQ 
MOV 

MOV 
ERROR 



CMP 
BEQ 
MOV 

MOV 
ERROR 

MOV 
MOV 
MOV 
MOV 

CNT.RDY 

CMP 

BEQ 

CLR 

MOV 

NOV 

ERROR 



TST 
BNE 
TST 
CMP 
BNE 
INC 
TST 
TST 
CMP 
BNE 



1 

#1 40000. aRO 
8S 

PC,CT4RG 
22 



#210, aRO 
9S 

aRO.SREGl 
#210,SREG0 

24 



R4,aRKDA 
lOS 

R4.SREG0 
aRKDA.SREGl 

27 

R4.aRK0A 
f OUTBUF ,aRKBA 
f-1 ,aRKUC 
«2005.aR0 

(R3).0UTBUF 

IIS 

SREGO 

(R3).$REG1 

0UTBUF.SREG2 

43 



INDX1 

12$ 

(R3)* 

#SEEIC2*2.R3 
1$ 

INDXI 
-(R3) 
-(R3) 

#SEEK0-2,R3 
1$ 



SIN SET ON DOING SEEK 
DID 'HE' OR 'ERR' SET? 
YES 

GO. GET RKCS. ER, DS, DA 
'ERR OF 'HE' BIT SET WHEN 
SEEKING TO CYL AS INDICATED 
IN RKDA 

DOES RKCS STILL CONTAIN THE 'SEEK' FNCTION 

YES - EXIT 

NO. GET RKCS RECVD 

GET EXPCTD RKCS 

RKCS SHOULD CONTAIN THE 'SEEK' BITS 
IF NOT, ERROR 

DID RKDA CHANGE? 
NC 

YES, GET EXPCTD? 
GET RKDA 

RKDA CHANGED A^TER DOING SEEK 

ADRES THE DRIVE, SEC 0 

READ ONE HEADER INTO THIS 

BUS ADRES 

GO, READ FORMAT 

WAIT FOR CNTRL RDY 

WAS THE CORRECT READE4R READ (FROM 

CYLINDER TO WHICH SEEK WAS DONE BEFORE) 

STORE SEC » FROME WHERE HDR WAS RD (0) 

GET EXPCTD HEADER 

GET HDR RECVD 

WRONG HDR WAS RECVD FROM CYLINDER (ADRES 

IN ER NSGE). NOTE THAT A PURE SEEK WAS 

DONE TO THIS CYL BEFORE READING HDR 

USING READ FORMAT 

SEEK IN REVRSE DIRECTION? 

YES BRANCH 

NO, 'increment PTR TO NXT SEEK ADRES 
DONE WITH ALL SKS IN FUD DIR? 
NO, GO t DO NXT ONE 
SET FLAG INDICATING SK IN REVRSE 

POSITION PTR TO NXT SK IN REV 

DONE WITH ALL? 

IF NOT, 00 NXT ONE 



.••TEST 27 



check DRIVE RESET FROM LAST CYLINDER 



.••THE HEADS ARE POSITIONED ON THE LAST CYLINDER (DOING 
.••AN IMPLIED SEEK-READ). THEN A DRIVE RESET IS ISSUED. 
.••IT'S CHECKED IF THE HEADS WERE BROUGHT BACK TO 0 BY 
.••DOING A 1 WORD READ t CHECKING THAT THE CORRECT WORD 
.••WAS RECEIVED. IF TESTING ON SIMULATOR THIS TEST IS SKIPPED. 



MD-n- 


CZRKKF . 


RK11 BASIC LOGIC 


TEST 2 


HACY11 


30A(1052) 


J 6 
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^ t H ^ K r 


P11 


C 1 « CO I o 


Oft - SI 

MO ■ J 1 




TP7 


CHECK DRIVE RESET FROM LAST CYLINDER 


CCfl (in 7 A 


3998 


012242 








TST27: 


SCOPE 








3999 


012244 


\1\ CI Ji 


ooooos 


001206 




NOV 


#5.$TINES 


;D0 5 ITERATIONS 




4000 


012252 


MM J 1 jl 


001 '^LL 
MM ' jHH 






TST 


SINUL ; 


R U ON A SINULATOR? 




4001 


012256 


001 1 

MM 1 1 








BNE 


TST30 ; 


;YES. EXIT 




4002 


012260 


01 ^701 

M I J 1 M \ 


001 

MM I jjC 






MOV 


RKCS.RI 


* 




4003 


012264 


1 0£^1 ^ 








CNT. RESET 


GO. DO CONTROL RESET 




4004 
















THIS IS A CALL FOR THE 'CNTKL- 




4005 
















RESET' ROUTINE. A CONTROL RESET IS 




4006 
















ISSUED AND AFTER A CERTAIN TINE 




4007 
















IF THE 'CNTRL RDV DOES NOT SET 




4008 
















AN ERROR IS REPORTED. NOTE THAT 




4009 
















THE PC IN ERROR NESSAGE IS THE 




4010 
















PC WHERE 'CNT. RESET' IS LOCATED. 




4011 
















THIS IS A VERY BASIC ERR t If IT 




4012 
















OCCURS GO BACK TO TEST 10 




4013 


012266 


oosooo 








CLR 


RO 






4014 


012270 




M JJJ'^C 






nov 


#0UTBUF,R3 ;ADRES WHERE DATA WILL BE READ INTO 




4015 


012274 


01 


001 ^SO 

MM I JJM 






nov 


DRIVAD.R4 






4016 


012300 


OIO^OS 








NOV 


R4.R5 






4017 


012502 


M J C t M J 


01 4S00 






BIS 


#14500. R5 


SET CYL ADRES=312 (OCTAL) 




4018 


012306 


010S77 


1 U r V/CU 






NOV 


R5.aRKDA 


-ADRES THE DRIVE, LAST CYLINDER 




4019 


012312 


01 7777 

M \ C f 1 1 


1 77777 

} f f f 1 1 


167014 




NOV 


#-1 ,aRKUC 


READ 1 WORD 




4020 


012320 


010^77 


1 Q r V 1 C 






NOV 


R3.aRKBA 


-INTO THIS NENORY ADRES 




4021 




















4022 


012324 


01 271 1 


OOOOOS 

www WW J 






NOV 


#5.aR1 .-READ, GO 




4023 




















4024 


012330 


005000 

W J www 








CLR 


RO 






4025 


012332 


104414 

1 W ~ ~ 1 ~ 






IS: 


CNT.RDY 




;THIS IS A CALL FOR CN.RDY ROUTINE 




4026 
















;WHICH WAITS FOR CNTRL RDV TO SET. 




4027 
















;A RETURN IS HADE AFTER CNTRL RDY 




4028 
















;SETS. IF WITHIN A CERTAIN TINE 




4029 
















;CNTRL RDY DOESN'T SET AN ERROR 




4030 
















;NESSAGE IS GIVEN. WAITING TINE 




4031 
















;883 ns FOR 11/20, 175 HS FOR 11/45 




4032 


012334 


02051 3 

wC w J 1 J 






2S: 


CNP 


R5,aR3 


;WAS THE CORRECT WORD READ? 




4033 


012336 


001407 

WW I ^ w r 








BEQ 


3S 


;YES, SEEK TO 312 WAS DONE CORRECTLVS.a 




4034 


012340 


010537 

w I v J J 1 


001 162 

WW 1 1 wC 






NOV 


R5,$REG0 


;GET EXPCTD WORD 




4035 


012344 


01 1 337 


001 164 

Vw 1 1 






NOV 


aR3.SREGl 


;GET WORD RECVD 




4036 


012350 


010537 


001 166 

WW 1 1 wU 






NOV 


R5,SREG2 


;GET DSK-ADRES FRON WHERE WORD WAS READ 




4037 


012354 


1 04044 








ERROR 


44 


;DID NOT READ BACK CORRECT WORD FRON 




4038 
















rLAST CYL. SEC 0. IF TEST 45 i 46 




4039 
















;WERE SUCCESSFULLY DONE THIS 




4040 
















;ERR0R MEANS THAT IMPLIED SEEK 




4041 
















;T0 CYL 312 COULD NOT B DONE 




4042 


012356 


01271 1 


00001 5 

wwww 1 J 




3$: 


NOV 


#15,aR1 


;DRIVE RESET. GO 




4043 


012362 


104414 

1 W ~ ~ 1 ~ 








CNT.RDY 




•THIS IS A CALL FOR CN.RDY ROUTINE 




4044 
















;WHICH WAITS FOR CNTRL RDY TO SET. 




4045 
















;A RETURN IS NADE AFTER CNTRL RDY 




4046 
















;SETS. IF WITHIN A CERTAIN TINE 




4047 
















-CNTRL RDY DOESN'T SET AN ERROR 




4048 
















-NESSAGE IS GIVEN. WAITING TINE 




4049 
















;883 NS FOR 11/20, 175 NS FOR 11/45 




4050 


012364 


005000 








CLR 


RO 






4051 


012366 


032777 


000100 


166732 


4S: 


BIT 


flOO.aRKDS 


■DID R/W/S RDY SET? 




4052 


012374 


001 01 1 

MM lull 








BNE 


5S 


■YES, BRANCH 




4053 


012376 


012702 


177763 






NOV 


#-15. R2 


-IF U R ON A SLOWER NACHINE 
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4054 


01240? 


005202 








INC 


R2 


4055 


012404 


001376 








BNE 


.-2 


4056 
















4057 
















4058 
















4059 
















4060 
















4061 
















4062 
















4063 
















4064 
















4065 


012406 


005200 








INC 


RO 


4066 


012410 


001366 








BNE 


4S 


4067 














4063 


012412 


004737 


020774 






JSR 


PC,GT4RG 


4069 


012416 


104026 








ERROR 


26 


4070 
















4071 


012420 


032711 


140000 




5S: 


BIT 


#140000, aRi 


4072 


012424 


001405 








BEQ 


6S 


4073 














4074 


012426 


004737 


020774 






JSR 


PC.GT4RG 


4075 


012432 


104022 








ERROR 


22 


4076 
















4077 


012434 


005205 






6S: 


INC 


R5 


4078 


012436 


020577 


166676 






CMP 


R5,aRICDA 


4079 


012442 


001406 








BEQ 


7$ 


4080 


012444 


010537 


001162 






NOV 


R5,SREG0 


4081 


012450 


017737 


166664 


001164 




nov 


aRKDA,SREG1 


4082 


012456 


104054 








ERROR 


54 


4083 
















4084 
















4085 


012460 


012777 


M7777 


166646 


7$: 


nov 


f-1 ,8RKWC 


4086 


012466 


010377 


166644 






NOV 


R3,aRKBA 


4087 


012472 


010477 


166642 






NOV 


R4,aRKDA 


4088 














4089 


012476 


012711 


000005 






NOV 


#5,aRi 


4090 














4091 


012502 


005000 








CLR 


RO 


4092 


012504 


1044U 






8S: 


CNT.RDY 




4093 
















4094 
















4095 
















4096 
















4097 
















4098 
















4099 


012506 


020413 






9$: 


CNP 


R4,aR3 


4100 


012510 


001407 








BEQ 


TST30 


4101 


012512 


010437 


001162 






NOV 


R4,SREG0 


4102 


012516 


011337 


001164 






NOV 


aR3,SREG1 


4103 


012522 


010437 


001166 






NOV 


R4,$REG2 


4104 


012526 


104044 








ERROR 


44 


4105 
















4106 
















4107 
















4108 
















4109 

















58 PAGE 76 
AST CYLINDER 



I DO NOT NEED SUCH A LARGE NACHINE 
TINE LOOP. CHANGE THESE 3 
INSTRUCTIONS TO 'NOP' THE 
LOOP TINE WILL BE REDUCED 
TO 1100 NS 

THE TOTAL TINE FOR THE ABOVE 

LOOPS (U/O PUTTING 'NOP'S) IS 

5304 NS FOR 11/20 AND 

1061 NS FOR 11/45 WITH NOS 

OR BIPOLAR NENORr 

WAITED LONG? 

IF NOT, LUP BAK I WAIT 

IF rES. ERROR 

GET RKCS.ER.DS.DA 

R/W/S RDY DID NOT SET AFTER 

DOING DRIVE RESET 

DID HE OR ERR BIT SET? 

IF NOT. BRANCH 

GET RKCS.ER.DS.DA FOR ERROR NESSAGE 

HE OR ERR BIT SET ON DOING DRIVE 

RESET FRON LAST CYLINDER 

POSITION R5 TO EXPCTD RKDA 

DID THE CYL ADRES BITS IN RKDA GET CHANGED 

NO, BRANCH 

GET EXPCTD RKDA 

GET RKDA RECVD 

CYLINDER ADRES BITS IN RKDA 

GOT CHANGED AFTER 

DRIVE RESET, FRON LAST CYLINDER 

READ 1 WORD 

INTO THIS ADRES 

FRON THIS DSK ADRES-CYL 0, SEC 0 
READ, GO 



THIS IS A CALL FOR CN.RDY ROUTINE 
WHICH WAITS FOR CNTRL RDY TO SET. 
A RETURN IS NADE AFTER CNTRL RDY 
SETS. IF WITHIN A CERTAIN TINE 
CNTRL RDY DOESN'T SET AN ERROR 
NESSAGE IS GIVEN. WAITING TINE 
883 NS FOR 11/20, 175 NS FOR 11/45 
WAS THE CORRECT WORD READ? 
;YES. EXIT 
GET EXPCTD WORD 
GET WORD RECVD 

GET DISK ADRES WHERE ERROR OCCURED 
DID NOT READ CORRECT WORD FRON 
CYL 0, SEC 0. IF TEST 45 I 46 
WERE SUCCESSFULLY DONE THIS 
ERROR COULD NEAN THAT DRIVE-RESET 
DID NOT BRING HEADS BACK TO 0. 
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SEQ 0076 



All A 






■fill 






A 1 1 3 












L^^L 






*• 1 1 J 






HMO 












Aim 






A11Q 










1 0441 T 

1 \JHH 1 J 


A1 PI 






LAP? 












LA PL 

H 1 CH 






^ M C J 






LA? ft 

H 1 CO 






LA77 






LAPK 






1 C 7 






i1 XO 




1 04421 

1 wH HC 1 


41 ^1 

1 J 1 






LA%7 




01 ^704 


LA 






LA 






























41 39 












4141 






1 






•f 1 J 












4145 






414<^ 






4147 


01P54? 


012700 


414R 


01P546 


012701 


4149 


01255P 


01 2702 


41 50 


01?556 


012703 


41 51 






415? 


01P562 


010320 


415^ 


01?564 


005202 




012566 


060103 


41 55 


012570 


010320 


41 56 


012572 


005202 

WW </C WC 


4157 


012574 


001374 

WW 1 J r "t 


4158 






4159 


012576 


012777 

W I t " r r 


4160 


012604 


012777 


4161 


012612 


013777 


4162 






4163 


012620 


012714 


4164 






416S 


012624 


105714 



.♦TEST 30 



'WRITE' - 256 WORD BLOCK ON SECTOR 0, CYLINDER 0 



.-THE TEST BELOW SHOULD BE CONSIDERED AS A SET UP PHASE FOR 
;THE FOLLOWING TEST. IT WRITES A BLOCK OF 256 WORDS IN 
;SECTOR 0, CYLINDER 0 WITH A SPECIFIC PATTERN AND THIS WRITTEN 
:BL0CK WILL BE MADE USE OF IN THE NEXT TEST TO CHECK 
:OUT 'WRITE-CHECK' AND 'READ CHECK' FUNCTIONS. 



TST30: 



SCOPE 
CNT. RESET 



TST.SIN 
MOV 



RKCS,R4 



GO. DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET* IS LOCATED. 
THIS IS A VERY BASIC ERR& IF IT 
OCCURS 60 BACK TO TEST 10 
CHECK IF SIN IS SET, IF SET 
DO DRIVE RESET TO CLEAR IT 

:THE FOLLOWING CODE IS FOR SETTING 
:UP THE I/O BUFFER IN MEMORY (STARTING AT 
:OUTBUF), WITH A PARTICULAR 256 WORD PATTERN. 
: STARTING FROM THE FIRST WORD IN THE BUFFER 
.•THE LO BYTE WILL BE A COUNT PATTERN 
.•FROM 0 TO 255 (DECIMAL), WHEREAS THE 
;HI-BYTE WILL BE THE COMPLEMENT OF LO BYTE. 
:A DECREASING COUNT PATTERN FROM 255 TO 0. 
.•I.E.THE BUFFER WILL LOOK LIKE: 
;OUTBUF (1 111 111 1 00 000 000) 

:0UTBUFf2 (1 111 111 0 00 000 001) 



;LAST WORD 



(0 000 000 0 11 111 111) 



033342 
177401 
177400 
177400 



1$: 



177400 
033342 
001350 

000003 



166530 
166524 
166520 



2$: 



MOV 
MOV 
MOV 
MOV 


lfOUTBUF,R0 
#U7401,R1 
#-400, R2 
#177400, R3 


.•PATTERN GENERATING NUMBER 

;SET UP COUNT FOR 256 WORDS 

:SET UP THE FIRST PATTERN TO B WRITTEN 


MOV 
INC 
ADD 
MOV 
INC 
BNE 


R3.(R0)* 
R2 

R1.R3 

R3.(R0)* 

R2 

1S 


:SET UP FIRST WORD IN I/O BUFFER 
.•INCREMENT COUNT 
.-SET UP NEXT WORD PATTERN 
.•WRITE IT IN NXT I/O BUFFER WORD 
;HAVE U WRITTEN ALL 256 WORDS 
;IF NOT GO ( WRITE NEXT PATTERN 


MOV 
MOV 
MOV 


#-400,aRKWC 

#0UTBUF,aRKBA 

DRIVAD.aRKDA 


; WRITE 256 WORDS 

.-STARTING FROM THIS BUS ADRES 

;T0 THIS DISK ADRES. CYL 0. SEC 0 


MOV 


#3,aR4 


.-WRITE, GO 


TSTB 


aR4 


;WAS CNTRL RDY CLEARED AS GO WAS SET? 
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^166 


A 1 ^^^^ 

01 e6e6 


1 AAAA7 
1 00003 








DDI 


7C-5 

j> e 


^ lOf 


A1 "^^YA 

012630 


AA/ 777 

004 r 3f 


A1 1 AA"? 

OelOOe 






1 CD 


rl, < u 1 jKo 


/ 1 ^ o 


Al ^Z. Y/ 

012634 


1 A/ A7A 

104030 








CDDAD 


70 

JU 


HI 69 
















/ 1 yn 
















/ 1 7 1 

H \ f\ 


01e636 


AACAA1 

OOsOOe 








CI D 
ILK 


D5 

Ke 


Hi (C 


A1 1^/ A 

01e6H0 


1 Ae777 

105 r 


1 Z.Z./ Z.Z. 

166466 




7C • 

3»: 


T CTO 
1 3 1 D 


aDir r c 


H 1 ^ 5 


A1 TZ./ / 

01 <:6hh 


i AA/ 1 1 

1 OOhI 1 








QM 1 

onl 


A< 
H » 


HI ^H 


A1 TZ/ Z 

01 e6H6 


AAC 5 A5 

00)eOe 








INl 


R5 


HI r5 


A1 5ACA 

01e63U 


AA1 777 

001 if 3 








DUE 


7* 


H 1 f O 
















/ 1 77 

H1 r f 


A1 OAC? 

01 eo)e 


AA/ 777 
OUh r Jf 


A5A77Z 
OeOf f H 






1 CD 


r\ t w ' HnO 


Z 1 7B 
H 1 r 0 


A1 5A^A 

01 eo)o 


AI 7777 
01 3» 3f 


AA1 7^A 
UU 1 J3U 


AA1 3A5 
UU 1 eUc 




nuv 


npiuin iRcr^lo 


/ 1 7Q 
H 1 f V 


A1 5AAZ 

01e6OH 


1 AZZ 1 A 

lOHHlO 








DD^AAA 
OKnUAH 




H leu 
















L 1 

hIOI 


A1 

01 eOOO 


1 AZA71 

1 Oh031 








CDDAD 


71 

J 1 


Hi . 
















H105 
















HI OH 
















H 1 07 
















Z. 1 B/L 
H 1 00 
















Ly B7 
H lOr 


A1 5A7n 
0 1 eO r U 


AAZ 777 
UUH f jf 


A51 57A 
Ue 1 e jH 




AC • 

H» - 


ICR 

Jon 


pr rurMF 


H 100 
















/.I BO 
Hi 07 


0 1 eOrH 


1 AZ,A75 
1 UHUjc 








CDDAD 
C KnUR 


73 
je 


A1 on 
















/ 1 01 

Hiyi 
















HI 
















/. 1 QT 
Hl73 
















/. 1 OZ. 
H 1 tH 
















H 1 t3 


fli 3A7A 
0 1 cOrO 


A5AA77 


1 AAA 7 A 
1 OOH jH 




J9 • 




RA aRKRA 
nU # «n ADA 


/.I OA 
H 1 TO 


ni 3703 
UlerUe 


AA1 AAA 
UU 1 HUO 












H 1 7r 


Ai 37AZ 

U 1 C f vH 


U 1 v\ljf 


nni 1 A7 
uv 1 1 oe 






MOV 


BO tBFRO 
nv # 9neuw 


L 1 OB 
H 1 tO 


AI 571 A 
0 1 C f 1 U 


AI 7777 


1 AAA 3 3 
1 OOHee 


001 1 A4 
UU 1 1 OH 




HOW 

nuv 


aPITRA <BFR1 


L 1 QO 
H 1 77 


AI 571 A 
U 1 e 1 1 0 


1 AAA7S 
1 UHU J J 








cpRAR 

C ~ n un 


7C 


H cUU 
















Hcv 1 
















HCVC 


AI 575A 

u 1 e > ew 


AAZ 777 


031 71 A 
ue 1 J 1 o 




At- 


KB 


pr ruKur 


HcUj 
















HcUH 


AI 57?A 
u 1 cf en 


1 AZ,A74 








FBBOP 

CnnUR 


jH 


HcU3 
















/. 5ftA 
HcvO 


AI 579A 
0 1 c f eO 


AAZ 777 
UvH f J f 


031 3A3 
Ue 1 eoe 




r 9 > 


KB 




HcUf 
















A 5nB 
HcUO 


AI 57X5 
0 1 C ' JC 


1 AAA77 
1 UHU J J 








c DDAR 


77 


HcUt 
















He 1 U 


AI 577A 
0 1 C f jH 


AAZ777 
UUH f jf 


n31 7A3 
Uc 1 JHe 






ICR 


pr ruKFR 


Z 51 1 

Hell 
















Z,51 5 
He Ic 


AI 57An 
U le rHU 


1 AAA7A 
1 UHUjO 








CRRAR 


7A 


He 1 J 
















He 1 H 


AI P7Z5 

u 1 1 ( He 


uee f 1 H 


000303 




7# • 


rnp 

c rir 


f203 aR4 
w e ve # 


^?1 s 
He 1 J 


01 ?74<k 
u 1 e ' HO 


UU 1 HwO 








RFC 


TST31 


4216 


012750 


012737 


000202 


001162 




NOV 


I202.$REG0 


4217 


012756 


011437 


001164 






NOV 


aR4,$REG1 


4218 


012762 


104024 








ERROR 


24 


4219 
















4220 
















4221 
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K ON SECTOR 0. CYLINDER 0 



.-YES. BRANCH 
.GET RKCS, ER, DS 

.CNTRL ROY DID NOT CLEAR AS 60 WAS SET 
;T0 'WRITE* 



.DID CNTRL RDY SET? 

.-YES. BRANCH 

; WAITED LONG ENOUGH? 

:IF NOT. LUP BAK ( WAIT 

;IF YES, ERROR 

:G0. GET RKCD. ER. DS. DA 

.GET THE STARING ADRES 

;BREAIC CONTENTS OF SREG10 INTO 

;DRV #. CYL, SUR. SEC # 

:CNTRL RDY DID NOT SET ON COMPLETION 

:0F WRITE OF 256 WORDS ON CYL 0. SEC 0 

:*RICDA' IN ERDR MSGE GIVES THE 

.-CONTENTS OF RKDA AT THE TIME OF EROR 

;WRITE WAS DONE STARTING AT <DSK-ADRES> 

; INDICATED IN EROR NSGE 

.•CHECK IF 'ERR* OR 'HE* BIT IS SET, 

;IF YES, RETL'BN HERE 

:HE OR ^KR BIT SET ON DOING WRITE OF 

;2S6 WOKD^ ON CYL 0, SEC 0 

.WRITE WAS DUNE STARTING AT <DSK-ADRES> 

; INDICATED IN EROR NSGE 

;'RKDA' IN EROR NSGE GIVES THE 

.-CONTENTS OF RKDA AT THE TINE OF EROR 

;DID RKBA INCREHENT CORRECTLY? 

;YES, BRANCH 

;GET EXPCTD RKBA 

.-GET RKBA RECVD 

:RKBA DID NOT INCRENENT CORRECTLY 

.-(BY 1000 OCTAL BYTES) AFTER WRITE 

:0F 400 (OCTAL) WORDS ON SEC 0, CYL 0 

; CHECK IF RKWC OVERFLOWED TO 0. 

;IF NOT RETURN HERE. 

:RKWC DID NOT OVERFLOW, AFTER A 

.-WRITE OF 256 WORDS ON CYL 0. SEC 0 

: CHECK IF RKDA INCREMENTED CORRECTLY. 

,-IF NOT RETURN HERE 

.-RKDA DID NOT INCRENENT BY 1 AFTER 

:A WRITE OF 256 WORDS IN CYL 0. SEC 0 

.-CHECK IF ANY BIT RKER IS SET 

.IF YES RETURN HERE. 

;RKER BIT SET ON DOING WRITE ON 

.-CYLINDER 0. SECTOR 0 

.-DOES RKCS STILL CONTAIN THE WRITE BITS 

;;VES, EXIT 

;6ET EXPECTED RKCS 

:GET RKCS RECVD 

;RKCS DID NOT CONTAIN THE 'WRITE' 
:BITS AFTER THE FUNCTION WAS DONE. 



01276A 
012766 



MD-11-C2RKKF. 
CZRICKF .Pll 



4222 

4223 

4224 

4225 

4226 

4227 

<.228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 

4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 



RK11 BASIC LOGIC TEST 2 
21-FEB-78 08:51 



N 6 

NACVll 30A(1052) 21-FEB-78 08:58 PAGE 79 
T31 CHECK THAT WRITE WAS DONE CORRECTLY 



SEO 0078 



000004 
104413 



012770 104421 



012772 
012776 
013002 
01 3004 
01 3006 
013010 
013012 
013020 
013026 



012700 
012701 
005021 
005200 
001375 
005000 
012777 
012777 
013777 



013034 012777 



013042 
013046 
013050 
013052 

013054 
013060 
013066 



105777 
100411 
005200 
001373 

004737 
013757 
104416 



013070 104045 



013072 
013100 
013102 
013106 
013112 



032777 
001033 
012701 
012702 
012703 



.••TEST 31 CHECK THAT WRITE WAS DONE CORRECTLY 

.••THIS TEST CHECKS IF THE 'WRITE' OF 256 WORDS 
TEST IS GOOD. THE SEQUENCE OF OPERATIONS IS 



TST31: 



177400 
033342 



177400 
033342 
001350 

000005 

166264 



020774 
001350 



8S: 



166314 
166310 
166304 

166270 



IS: 



001202 



001000 166226 

177400 
^77777 
033342 



2S: 
5$: 



DONE IN PREVIOUS 
AS FOLLOWING: 



;^1) DO A READ OF 256 WORDS FROM SECTOR 0. CYLINDER 0 
;• INTO A BUFFER STARTING AT 'OUTBUF*. 

,*2) COMPARE t CHECK THE DATA THAT IS READ (STARTING AT 'GUTBUF') 

;• WITH THE DATA {HAT WAS GENERATED PREVIOUSLY 

;*3) REPORT AN ERROR IF THE DATA READ BACK FROM DISK DOES 

;• NOT COnPARE WITH DATA THAT WAS SUPPOSE TO HAVE BEEN WRITTEN 



SCOPE 
CNT. RESET 



TST.SIN 




nov 


#-400. RO 


NOV 


fOUTBUF.RI 


CLR 


(RD* 


INC 


RO 


BNE 


8S 


CLR 


RO 


nov 


#-400.aRKWC 


NOV 


#OUTBUF .aRKBA 


NOV 


DRIVAD.aRKDA 


NOV 


ffS.aRKCS 


TSTB 


•RKCS 


BNI 


2t 


INC 


RO 


BNE 


1$ 


JSR 


PC.GT4RG 


NOV 


DRIVAD.tREGlO 


BRKDA4 




ERROR 


45 



BIT 
BNE 
NOV 
NOV 
NOV 



iriooo.aRKDS 

TST32 
#-400. R1 
#177777. R2 
#0UTBUF.R3 



GO. DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TINE 

IF THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR NESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR( IF IT 

OCCURS GO BACK TO TEST 10 

CHECK IF SIN IS SET. IF SET 

DO DRIVE RESET TO CLEAR IT 

SET COUNT FOR 400 WORDS 

TO BE CLEARED IN THE BUFFER 

CLR THE 400 WORD BUFFER 

STARTING AT 'OUTBUF' 



READ 256 WORDS 

INTO THIS ADRES 

STARTING FRON THIS DISK ADRES 

READ. GO 

DID CNTRL RDY SET? 

YES. BRANCH 

WAITED LONG ENOUGH? 

IF NOT. LUP BAK & WAIT 

ERROR. IF YES 

GO. GET RKCD. ER. DS, DA 

GET THE STARTING ADRES 

GO TO 'BDA4' t BREAK CONTENTS OF 

SREGIO INTO DRV #, CYL, SUR. SEC BITS 

CNTRL RDY DID NOT SET AFTER READ 

OF 400 WORDS FRON CYL 0. SEC 0 

•RKDA' IN EROR NSGE GIVES THE 

CONTENTS OF RKDA AT THE TINE OF EROR 

READ WAS DONE STARTING AT <DSK-ADRES> 

INDICATED IN EROR NESGE 

IS SIN SET? 

;IF YES. EXIT 
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SEfl 0079 





01 ^1 1<i 


01 ?70S 


1 7777^ 

1 f f f f J 






nu V 








01 31?? 


06?70? 


1 77401 




w # • 


Ann 


#177401 B? 




4280 


01 31 26 


0?0?1 3 








L nr 


R? (R^) -UAC THF 


RFAn UDBn CAMP AC TMF UDDn 


4281 
















TUAT UAC CIIPPOCF Tfl BF UDTTTEti 


428? 


01 ^1 ^0 


001414 








DCW 


7* 

(9 


VFC RBAUrU 


428^ 
















If U . C'nUn 


4284 


013132 


010137 


001 162 

WW I 1 uc 






MOV 


R1 SREGO 


CFT THF # OF UQRR 


4285 


013136 


062737 


000401 


001 162 

WW 1 I uc 




ADD 

n 1/1/ 


#401 SREGO 


THAT IS IN FRROft (FXAMPIF=1 ?--^7A ^77 ^00) 


4286 


013144 


010237 


001 164 






ri w » 


R? SREGI 


RfJ FVPTTn unpn (that uac ciiPPncFn to 


4287 

^ fc W r 
















BE WRITTEN) 


4288 


01 31 50 


01 1 337 








MRU 






4289 


013154 


104055 








FRPOP 




DTD unT PF An RArif unpn tuat uac ciiPDncpn 


4290 
















TO HAVP RFFN UPfTTFM PPFUinil^lV Pn^TTTnM 
lu nnvc Dec'* vniiitfv rncvi UU^L ' • r Ud i 1 i U1 


4291 
















OF UOPD IN FPPOP A^ INDTfATFI) AV 


4292 
















UOPD f f tPFt^O) CFf 0 r VI 0 


4295 


01 31 56 


005205 










R5 


4294 


01 3160 


001403 








RFO 


TST3? 


;EXIT 


429S 


01 316? 


WW J 1 C J 








1 d 1 


f P^ W 


IkirDFHFklT PniklTFD TCI MVT UHDn ^TUAT 


4296 
















UAC RFAn RArK) 


4297 


013164 


005201 








INC 


R1 


HAVE U CHKD ALL 256 WORDS? 


4298 


013166 


001355 








BNE 


6S 


-IF NOT, LUP BAK t CHK THE NXT WORD 


4299 
















•IF YES, EXIT 


4300 
















4301 


















4302 










# 1 C 1 


32 


CHECK 'READ CHECK' FUNCTION - CYLINDER 0. SECTOR 0 


4303 












;*THIS 


TEST CHECKS OUT THE BASIC :READ CHECK' LOGIC, USING THE DATA BLOCK 


4304 












;*'CYLINDER, SECTOR 0) WRITTEN IN A PREVIOUS TEST. HENCE THE TEST WHICH 


4305 












.-•WRITES THE DATA BLOCK SHOULD BE DONE PRIOR TO THIS TEST. 


4306 


















4307 


013170 


000004 






TST32: 


SCOPE 






4308 


013172 


104413 








CNT. RESET 


■GO, DO CONTROL RESET 


4309 
















•THIS IS A CALL FOR THE 'CNTRL- 


4310 
















;RESET' ROUTINE. A CONTROL RESET IS 


4311 
















; ISSUED AND AFTER A CERTAIN TIME 


4312 
















■IF THE 'CNTRL RDY' DOES NOT SET 


4313 
















■AN ERROR IS REPORTED. NOTE THAT 


4314 
















;THE PC IN ERROR MESSAGE IS THE 


4315 
















;PC WHERE 'CNT. RESET' IS LOCATED. 


4316 
















-THIS IS A VERY BASIC ERR& IF IT 


4317 
















•OCCURS GO BACK TO TEST 10 


4318 


013174 


104421 








TST.SIN 




;CHECK IF SIN IS SET. IF SET 


4319 
















•DO DRIVE RESET TO CLEAR IT 


4320 


013176 


013701 


001332 






nov 


RKCS,R1 




4321 


013202 


013702 

W 1 J • WC 


001334 

WW 1 w ^ ~ 






HOV 


RKWC,R2 




4322 


013206 


013703 


001340 






nov 


RKDA,R3 




4323 


013212 


013704 


001336 

WW 1 J J\0 






nov 


RKBA,R4 




4324 


013216 


012737 


05252*^ 

w ^ c <^ c 


053342 




nov 


#52525. OUTBUF 




4325 


013224 


012712 


177400 






nov 


#-400. aR2 ;READ CHECK 256 WORDS 


4326 


013230 


013713 


001350 






nov 


DRIVAD,aR3 .-STARTING FROn CYL 0. SECTOR 0 


4327 


013234 


012714 


033342 






nov 


#OUTBUF ,aR4 




4328 


013240 


012711 


000013 






nov 


#13.aR1 .-READ CHECK. GO 


4329 














4330 


013244 


105711 






IS: 


TSTB 


aRi 


DID CNTRL RDY GET CLEARED AS GO WAS SET*) 


4331 


013246 


100003 








BPL 


21 


YES. BRANCH 


4332 


013250 


004737 


021002 






JSR 


PC,GT3RG 


GET RKCS, ER, DS 


4333 


013254 


104030 








ERROR 


30 


CNTRL RDY DID NOT CLEAR AS GO 
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4334 


013256 


104412 






2S: 


CHKCRDY 




GO CHFCK IF rOMTROI RDY \'s ^FT 


4335 
















IF SO SKIP THE EROtt MFSSAGF 


4336 
















WAS SET TO 'READ CHECK' 


4337 


013260 


104056 








ERROR 


56 i 


CNTRL RDY DID NOT SET ON DOING 


4338 
















'READ CHECK' FRON CYL 0 SEC 0 


4339 


013262 


032711 


140000 




3$: 


BIT 


#140000 SRI 


DID 'ERR' OR 'HE' BIT SET'' 


4340 


01 3266 


001403 








BEQ 


4S 


NO BRANCH 


4341 


013270 


004737 


021002 






JSR 


PC.GT3RG 


GO. GET RKCS ER DS FOR ERROR NESSAGE 
'ERR' OR 'HE' BIT SET ON DOING 


4342 


013274 


104057 








ERROR 


57 


4343 
















'READ CHECK' ON CYLINDER 0 SEC 0 


4344 


013276 


032777 


000002 


166024 


4$: 


BIT 


#2,aRKER 


DID 'CSE' BIT SET IN RKER^ 


4345 


013304 


001404 








BEQ 


5S 


NO. BRANCH 


4346 


013306 


017737 


166016 


001162 




NOV 


iRKER.SREGO 


GET RKER 


4347 


013314 


104060 








ERROR 


60 


SOFT ERROR - CSE - ON DOING 'READ 


4348 
















CHECK' ON CYLINDER 0. SECTOR 0 


4349 
















-U SHOULD HAVE GOT ERRROR 102 ALSO 


4350 


013316 


005712 






5S: 


TST 


aR2 


-DID WORD COUNT OVERFLOW TO 0'' 


4351 


013320 


001405 








BEQ 


6S 


'YES. BRANCH 


4352 


013322 


011237 


001162 






NOV 


aR2.SREG0 


■GET RKWC 


4353 


013326 


011137 


001164 






NOV 


aRl .SREGl 


GET RKCS 


4354 


013332 


104061 








ERROR 


61 


■WORD COUNT DID NOT OVERFLOW 


4355 
















ON DOING 'READ CHK' ON CYL 0 SEC 0 


4356 


013334 


013702 


001350 




6S: 


NOV 


0RIVAD,R2 


■RKDA SHOULD INCRENENT 


4357 


013340 


005202 








INC 


R2 


;T0 THIS AFTER 'RD CHK' IS DONE 


4358 


013342 


020213 








CNP 


R2,aR3 


;DID RKDA INCRENENT CORRECTLY^ 


4359 


013344 


001405 








BEQ 


7S 




4360 


013346 


010237 


001162 






NOV 


R2,$REG0 


■GET EXPCTD RKDA 


4361 


013352 


011337 


001164 






NOV 


aR3.SREGl 


;GET RKDA RECVD 


4362 


013356 


104062 








ERROR 


62 


:RKDA DID NOT INCRENENT CORRECTLY 


4363 
















■(BY 1) ON DOING 'READ CHK' ON 


4364 
















;CYL 0, SEC 0 


4365 


013360 


022714 


033342 




7S: 


CNP 


fOUTBUF,aR4 


;DID RKBA GET CHANGED? 


4366 


013364 


001406 








BEQ 


8S 


;N0, BRANCH (RKBA WON'T CHANGE, NO NPR'S) 


4367 


013366 


012737 


033342 


001162 




NOV 


fOUTBUF.SREGO 


;GET EXPCTD RKBA 


4368 


013374 


011437 


001164 






NOV 


aR4.$REGl 


■GET RKBA RECVD 


4369 


013400 


104063 








ERROR 


63 


■RKBA CHANGED AFTER DOING 'READ CHK' 


4370 
















:0N CYLINDER 0. SECTOR 0 SHOULD 


4371 
















■NOT CHANGE, FOR, NO NPR'S. 


4372 


013402 


022737 


052525 


033342 


8S: 


CNP 


#52525, OUTBUF 


; 'OUTBUF* SHOULD STILL CONTAIN THE 


4373 
















;SANE WORD AS IT DID BEFORE 'RD CHK' 


4374 
















■NOTE THAT AT THE BEGINING OF THIS TEST 


4375 
















■52525 WAS WRITTEN INTO 'OUTBUF' 


4376 


013410 


001412 








BEQ 


TST33 


■;YES, EXIT 


4377 
















■REPORT ERROR IF 'OUTBUF' CHANGED 


4378 


013412 


012737 


033342 


001162 




NOV 


fOUTBUF ,tREGO 


■GET ADRES OF OUTBUF 


4379 


013420 


012737 


052525 


001164 




NOV 


#52525. fREGl 


■GET EXPCTD WORD IN 'OUTBUF' 


4380 


013426 


013737 


033342 


001166 




NOV 


OUTBUF .$REG2 


GET WORD FOUND IN 'OUTBUF' 


4381 


013434 


104064 








ERROR 


64 


AS MENTIONED ABOVE IF 'WRITE' OF 


4382 
















256 WORD DATA BLOCK WAS DONE 


4383 
















CORRECTLY BEFORE, THEN THIS ERROR 


4384 
















COULD NEAN THAT AN NPR WAS DONE 


4385 
















ON 'READ CHECK'. 


4386 


















4387 


















4 388 










;*TEST 


33 


CHECK THE 'WRITE 


CHECK' FUNCTION - ON CYLINDER 0. SECTOR 0 
IE BASIC 'WRITE CHECK' LOGIC, USING THE 256 


4 389 












.••THIS 


TEST CHECKS OUT Tl 



MO-1 1- 


CZRKKF . 


RK11 BASIC LOGIC 


TEST 2 


HACYll 


D 7 

30A(1052) 21-FEB-78 08:58 PAGE 82 




CZRKKF 


.P1 1 


pi -F CD.7B 


08-S1 




T33 




THF 'uftiTF rHFrr' FimrTiriM - fm rvi imofd n cFrrno (\ 




A 590 














DATA Rl nriT (^FTTHR 0 TVI IlinFR D) URITTFM IM A PRFUinilC 




A591 












.-•TEST 


. THE BUFFER IN NEHORY. USED FOR COMPARISON OF DATA. IS THE 




4592 












.♦ONE 


STARTING AT 'OUTBUF'. HENCE THE TEST WHICH WRITES THE 




A595 












.••256 


WORD BLOCK ON THE DISK (AS WELL AS CREATING THE 256 




459A 












;*256 UORD NEHORV BUFFER) SHOULD BE DONE BEFORE THIS TEST. 




4595 




















4596 


015456 


000004 






TST33: 


SCOPE 








4597 


015440 


104415 








CNT. RESET 


60 DO CONTROL RESET 




4598 
















THIS IS A CALL FOR THE 'CNTRL- 




4399 
















RFSFT' ROUTINF A rOMTROI RF^FT 

n L. L. ■ n w lint* n v wn ■ n WL. n c w w i 1 w 




4400 
















ISSUED AND AFTER A CERTAIN TIME 




4401 
















IF THE 'CNTRL RDV DOES NOT SET 




4402 
















AN ERROR IS REPORTED NOTF THAT 




4403 
















THE PC IN ERROR MESSAGE IS THE 

*>(k iv A>« k>«*i Wn ■Ik W W Wk Aw * >■ k 




4404 
















PC WHERE 'CNT RESET' IS LOCATED 




4405 
















THIS IS A VERY BASIC ERRt IF IT 




4406 
















■OCCURS 60 BACK TO TEST 10 

WVVWnw WW l#n IW Ikwl IW 




4407 


013442 


104421 








TST.SIN 


■CHECK IF SIN IS SET IF SET 

V>*bV^ A> wA'V Aw wkl# A> wL( 




4408 
















DO DRIVE RESET TO CLEAR IT 

W W W*«AVfc **fcWfc> ■ W V k h w^n A • 




4409 


013444 


013701 


001 33? 






NOV 


RKCS.Rl 






4410 


013450 


01P700 


1 77400 






NOV 


#-400. RO 






4411 


013454 


01P70? 


033342 






NOV 


#0UTBUF.R2 






4412 


013460 


012703 


1 77777 






NOV 


#1 77777. R3 






4413 


013464 


062703 


177401 

Iff 1 




1$: 


ADD 


#177401 .R3 






4414 


013470 


010322 








NOV 


R3.(R2)« 






4415 


013472 


005200 








INC 


RO 






4416 


013474 


001373 








BNE 


It 






4417 


013476 


012777 


177400 


165630 




NOV 


#-400.aRKWC 


;WRITE CHECK 256 WORDS 




4418 


013504 


012777 


033342 


1o5624 




NOV 


#OUTBUF .iRKBA 


;STARTING AT THIS BUS ADRES 




4419 


013512 


013777 


001350 


165620 




NOV 


DRIVAD.iRKDA 


;WITH THIS DISK DATA BLOCK (CYL 0. SEC 0) 




4420 


013520 


01271 1 


000007 

WW WW I 






NOV 


#7.aRl 


;WRITE CHECK. GO 




4421 


















4422 


013524 


005000 








CLR 


RO 


;6IVE SOHE TINE 




4423 


013526 


10571 1 






2S: 


TSTB 


iRl 


;DID CNTRL RDY CLEAR AS GO WAS SET? 




4424 


013530 


100003 








BPL 


3$ 


;YES BRANCH 




4425 


013532 


004737 


021002 






JSR 


PC.6T3RG 


;GET RKCS, ER, DS 




4426 


013536 


104030 








ERROR 


30 


;CNTRL RDY DID NOT CLEAR AS GO WAS 




4427 
















;SET TO DO WRITE CHECK 




4428 


013540 


104412 






3$: 


CHKCRDY 


;G0 CHECK IF CONTROL RDY IS SET 




4429 
















;IF SO. SKIP THE EROR MESSAGE. 




4430 


013542 


104065 








ERROR 


65 


'CNTRL RDY DID NOT SET AFTER 




4431 
















■COMPLETING WRITE CHECK ON 




4432 
















■CYLINDER 0, SECTOR 0 




4433 


013544 


032711 


140000 




4$: 


BIT 


#140000, aRl 


■DID HE OR ERR BIT SET 




4434 


013550 


001403 








BEQ 


5$ 


■NO, BRANCH 




4435 


013552 


004737 


021002 






JSR 


PC.GT3R6 


■GO GET RKCS ER DS FOR ERROR MESSAGE 




4436 


013556 


104066 








ERROR 


66 


■HE OR ERR BIT SET ON DOING WRITE 




4437 
















■CHK ON CYLINDER 0 SEC 0 




4438 


013560 


032777 


000001 


165542 


5$: 


BIT 


#l,aRKER 


■DID WCE SET IN RKER? 




4439 


013566 


001403 








BEQ 


6$ 


■NO, BRANCH 




4440 


013570 


004737 


021002 






JSR 


PC.6T3RG 


YES GET RKCS, ER, DS 




4441 


013574 


10A067 








ERROR 


67 


WCE ON WRITE CHECK OF CYL 0. SEC 0 




4442 
















NOTE THAT IF A PREVIOUS TEST 




4443 
















& THEN COMPARED WITH MEMORY BUFFER 




4444 
















TO SEE IF IT WAS WRITTEN CORRECT WAS 




4445 
















DONE RIGHT BEFORE, THIS ERROR SHOULD NOT 
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T33 CHECK THE 'WRITE CHECK* FUNCTION - ON CYLINDER 0, SECTOR 0 



SEO 0082 











LLLl 








LLLH 




nn^777 


10 J J JC 




U 1 jOUc 


nm ^.n/» 
UU 1 hUO 




•««• jU 


ni TAD/. 


ni 7777 


1 0 J JC** 




U 1 jO I c 


O-J 1 1 7 7 


nni 1 f^L 

UM 1 1 O** 




U 1 1 0 


1 n^nAi 














U 1 jOcU 


ni X7nt 


nni x^n 

UU 1 J jU 




U 1 jOc^i 






30 


U 1 jOcO 


n5n^77 


1 O J JwO 




U 1 jO jc 


nni ^nA 






U 1 jO J** 


ni nA X7 


nni 1 A? 

UU 1 1 Oc 




U 1 jO<iU 


ni 77X7 


1 O JH ' *• 






1 n^n7n 












'*'*OC 




n?P777 

Ucc iff 


M J^t DHC 


•»sO J 


w 1 Ju JO 


nni^n7 




LLftL 


U 1 JuOU 


ni ?7X7 


U J"* J*»C 


'IHD J 


u 1 jOOO 


ni 77X7 


1 A^CLl, 
1 O j^tt^* 


hHOO 


ni XA7^ 
u 1 jO r •» 


1 n£n7i 












HHOO 








"♦HOT 


\J 1 jO 1 o 


np?7i 1 


nnnpnA 

UMMcMO 




ni ^7n? 


nni ^nA 

MM 1 "tMO 






ni T7n^ 


ni ?7X7 


nnnpOA 


LLT> 


ni X71 ? 


ni 1 1 X7 

Ml 1 1 J f 


nni 1 ftC 


H*t f J 


ni X7M\ 

U 1 J ' 1 o 


in^n74 




LLTL 








^47S 








HH f O 








LL77 








HH f O 








iA7Q 

HH f 7 








HHOv 








L.LR^ 








HHOc 








•♦•to J 








LLfkL 
















■♦•♦ oo 








•♦•fO 1 








LCRR 


01 ^7?0 


000004 






v/ 1 3 ' £C 


10441 ^ 
1 ^/•••f 1 J 




























HH T J 
































AA97 








4498 








4499 


013724 


104421 




4500 








4501 


013726 


013701 


001332 



6S: TS1 iRKUC 

BEQ 7$ 

001162 MOV aRKUCSREGO 

NOV aRI.SREGI 

ERROR 61 

7S: MOV DRIVAD. R4 

INC R4 

CMP R4.aRKDA 

BEQ 8S 

MOV R4,$REG0 

001164 MOV aRKDA.SREGI 

ERROR 70 

165460 8S: CMP fOUTBUF^IOOO 

BEQ 9S 

001162 MOV #OUTBUFt1000 

001164 MOV 8RKBA,SREG1 

ERROR 71 



9S: CMP #206, iRI 

BEQ TST34 

001162 MOV #206,tREG0 

MOV iRI.SREGl 

ERROR 24 

■ • iiiitf ********************* 



.-HAPPEN UNLESS THERE IS A FAULT IN THE 

.COMPARING LOGIC OF 'WRT CHK' 

.DID RKUC OVERFLOW? 

.rES, BRANCH 

:N0, GET RKUC 

;GET RKCS 

:RKUC DID NOT OVERFLOW AFTER 

.-WRITE CHECK ON CVL 0, SEC 0 

;RKDA SHOULD INCREMENT 

;T0 THIS AFTER WRT CHK 

;DID RKDA INCREMENT CORRECTLY? 

.-YES. BRANCH 

.NO. GET EXPCTD RKDA 

.-GET RKDA RECVD 

.-RKDA DID NOT INCREMENT CORRECTLY 

;(BY 1 SECTOR) AFTER WAT CHK ON SEC 0. CYL 0 
.aRKBA .-DID RKBA INCREMENT CORRECTLY? 

;YES. EXIT 
.SREGO .-GET EPCTD RKBA 

:GET RKBA RECVD 

.-RKBA DID NOT INCREMENT CORRECTLY 

:(BY 1000 BYTES) AFTER A WRT CHK 

;0F 256 WORDS ON CYL 0, SEC 0 

.■DOES RKCS STILL CONTAIN THE WRT CHK BITS? 

::YES, BRANCH 

;N0. GET EXPCTD RKCS 

:GET RKCS RECVD 

.-RKCS BITS CHANGED AFTER WRT CHK 
.-WAS DONE 

************************************* 



:*TEST 34 CHECK THAT ISA INHIBITS INCREMENTING OF RKBA 

•THIS TEST CHECKS THAT THE BUS ADDRESS DOES NOT INCREMENT WHEN 
;*THE ISA BIT IS SET. SEQUENCE OP OPERATIONS: 
•1) CLEAR OUT 2S6 WORD BUFFER IN MErtORY (OUTBUF) 
;*2) READ FROM SECTOR 0. CYLINDER 0 THE 256 WORD BLOCK THAT WAS 
;*WRITTEN IN A PREVIOUS TEST (NOTE: THAT TEST SHOULD HAVE BEEN 
•DONE BEFORE THIS). IBA BIT IS SET DURING READ BACK. 
;*3) CHECK THAT RKBA DID NOT INCREMENT 

•4) CHECK THAT THE ENTIRE BLOCK WAS READ INTO THE SAME MEMORY 
•WORD (OUTBUF) i THE REST OF THE WORDS IN THAT BUFFER ARE 0 
;*AS PREVIOUSLY CLEARED OUT. 



TST34: 



SCOPE 
CNT. RESET 



TST.SIN 

MOV RKCS.RI 



GO. DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY* DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRft IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET. IF SET 
DO DRIVE RESET TO CLEAR IT 





CZRKKf . 


RK11 BASIC LOGIC 


TEST 2 


MACY11 


30A(105 


. r\ K K r 


P1 1 

• r 1 1 


C 1 r CD f 0 


OA • ^ 1 




1 




4502 


013732 


u 1 c f yjyj 


1 77400 






nov 


4503 


013736 


01 ?70? 

V 1 c r Uc 


u J J JHC 






nov 


4504 


013742 


01 0507 








nov 


4505 














4506 


013744 


onso?^ 

\J\JJ\fCJ 






IS: 


CLR 


4507 


013746 


\J\JjC\J\J 








INC 


4508 


013750 


oni ^7*; 








BNE 


4509 


013752 


01 ?777 

\1 \ CI f f 


1 77400 


165354 




nov 


4510 


013760 


01 0?77 








nov 


4511 


013764 


01 ^777 


001 ^SO 

\J\J 1 J^v 


165346 




nov 


4512 














4513 














4514 


013772 


01P711 








nov 


4515 














4516 


013776 


00S0^7 

\J\J J\J J t 


001 






CLR 


4517 


014002 


10'571 1 






2S: 


TSTB 


4518 


014004 


100417 








Bni 


4519 


014006 




001 36? 






INC 


4520 


014012 


001 ^7^ 








BNE 


4521 


014014 




0P0774 






JSR 


4522 


014020 


01 3737 


001 350 

WW * J Jv 


001202 




nov 


4523 


014026 










BRKDA4 


4524 














4525 


014030 










ERROR 


4526 














4527 


014032 




0?1 

wC I C 




3$: 


JSR 


4528 














4529 


014036 










ERROR 


4530 














4531 














4532 














4533 














4534 


014040 








4S: 


cnp 


4535 


014044 










BEO 


4536 


014046 


010?37 


00116? 

WW 1 1 uc 






nov 


4537 


014052 


017737 


165260 

1 V c VW 


001164 




nov 


4538 


014060 


104072 








ERROR 


4539 














4540 


014062 


032777 

V til 


001000 

WW 1 www 


165236 


5$: 


BIT 


4541 


014070 


001 O^P 








BNE 


4542 


014072 


01P700 

w 1 C 1 WW 


1 77400 

1 f f "tww 






nov 


4543 


014076 


022712 

wC C f 1 C 


000377 

WwwJ* ( 






cnp 


4544 














4545 














4546 


014102 


00141 1 

WW 1 ■* 1 1 








BEQ 


4547 


014104 


0''P7^7 

w 1 C r J f 


000^77 


001162 




nov 


4548 


014112 


01 1237 


001 16^ 

WW 1 1 w*' 






nov 


4549 


014116 


013737 


001550 


001166 




nov 


4550 














4551 














4552 


014124 


104044 








ERROR 


4553 














4554 














4555 














4556 


014126 


005722 






6S: 


TST 


4557 


014130 


012705 


Mini 






nov 
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UT IBA INHIBITS INCREnENTING OF RKBA 



SEQ 0083 



#-400. RO 

fOUTBUF,R2 

R2,R3 

(R3)* 

RO 

11 

f-400,aRKUC 

R2,aRKBA 

DRIVAD.aRKDA 



#4005, iRI 

COUNT 

SRI 

3S 

COUNT 
2t 

PC,6T4RG 
DRIVAD.SREdO 



45 

PC.CHKHE 
46 



R2,aRKBA 
5S 

R2.$REG0 
aRKBA,$REG1 

72 

#1000.aRKDS 
TST35 
#-400, RO 
#377. aR2 



6$ 

#377.$REG0 
(R2),$REG1 
DRIVAD.$REG2 



44 



(R2) + 
#-5.R5 



:SET UP COUNT FOR 256 WORDS 



CLEAR OUT THE 256 

WORD nEnoRr buffer starting 

AT 'OUTBUF' 

read back 256 WORDS 

INTO THIS BUS ADRES (IBA WILL B 

FROn THIS DSK ADRES (SEC 0. CrL 

NOTE: SEC 0 HAS BEEN WRITTEN IN 



PREVIOUS TEST WITH 
READ, GO, IBA SET 



SET) 

0) 

A 



A UNIQUE PATTERN 



DID CNTRL RDY SET? 

YES, BRANCH 

WAITED LONG ENOUGH? 

IF NOT. LUP BAK I WAIT 

GO. GET RKCS. ER. DS. DA 

GET THE STARTING ADRES 

BREAK CONTENTS OF SREG10 

INTO DR #. CYL, SUR. SEC 

CNTRL RDY DID NOT SET AFTER DOING 

READ 

CHECK IF 'ERR* OR 'HE* BIT IS SET, 
IF YES. RETURN HERE. 
ERR BIT SET ON DOING READ FROM SEC 0. 
CYL 0 (INDICATED IN <DSK-ADRES>) 
'RKDA' IN EROR nSGE GIVES THE 
CONTENTS OF RKDA AT THE TIKE OF EROR 

DID RKBA INCREHENT? 
OK IF NOT, BRANCH 
GET EXPCTD RKBA 
GET RKBA RECVD 

RKBA INCREnNTED WHEN IBA BIT WAS 
SET. SHOULD NOT HAVE 
IS SIN SET? 
;IF YES. EXIT 

CHECK THAT THE FIRST WORD IN 

•OUTBUF' IS 377 (LAST WORD OF SEC 0, 

CYL 0). NOTE THAT READ WAS DONE 

INTO THIS SAME WRD WITH IBA SET 

.-GET EXPCTD WORD (LAST WORD OF THE BUFFER 

GET WORD RECVD (LAST WRD FROH SEC 0) 

DISK ADRES WHERE ERROR OCCURED 

(SEC 0, CYL 0 LAST WORD) 

DATA ERROR 

THE FIRST WORD IN HEn BUFFER (OUTBUF) 

SHOULD BE NON-ZERO I SHOULD CONTAIN 

THE LAST WORD READ BACK FROn SEC 0 

CYL O.THIS DID NOT HAPPEN IF THE ERROR OCCURS 

INCREnENT POINTER TO THE NXT WORD 

ALLOW ONLY 5 nESAGES FOR ERR 116 
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T34 CHECK THAT IBA INHIBITS INCREMENTING OF RKBA 



SEQ 0084 



4558 


014134 


005200 




4559 


014136 


001417 




4560 


014140 


005722 




4561 


014142 


001774 




4562 


014144 


005037 


001164 


4563 


014150 


014237 


001166 


4564 


014154 


010004 




4565 


014156 


062704 


000401 


4566 


014162 


010437 


001 162 


4567 








4568 


014166 


104073 




4569 








4570 








4571 








4572 








4573 








4574 








4575 








4576 








4577 








4578 








4579 








4580 








4581 








4582 








4583 


014170 


005205 




4584 


014172 


001401 




4585 


014174 


000757 




4586 








4587 








4588 








4589 








4590 








4591 








4592 








4593 








4594 








4595 


014^76 


000004 




4 596 


014200 


104413 




4597 








4598 








4599 








4600 








4601 








4602 








4603 








4604 








4605 








4606 


014202 


104421 




4607 








4608 


014204 


012746 


000340 


4609 


0U210 


012746 


014216 


4610 


014214 


000002 




4611 


014216 






4612 


014216 


013701 


001332 


4613 


014222 


013700 


001402 



7$: 



INC 
BEQ 
TST 
BEQ 
CLR 
NOV 

nov 

ADD 
MOV 



RO 

TST35 
(R2)* 
7$ 

SREG1 

-(R2),SREG2 
R0,R4 
«401,R4 
R4,$REG0 



ERROR 73 



INC R5 
BEQ TST35 
BR 7S 



CHKD ALL 256 WORDS IN THE BUFFER? 

;YES. EXIT 

IS THIS WORD 0? 

YES, LUP BAK i CHK THE NXT WORD? 

ERROR. GET EXPCTED WORD - 0 

GET WORD THAT WAS FOUND IN THE BUFFER 



THIS 'WORD #' IN MEMORY BUFFER 
SHOULD HAVE BEEN ZERO 
THE 256 WORD BUFER (STARTING AT 
OUTBUF) WAS CLEARED BEFORE READING 
BAK SEC 0 INTO IT. SINCE THE IBA 
BIT WAS SET DURING THE READ, ONLY 
THE FIRST WORD OF (OUTBUF) SHOULD 
HAVE CHANGED, THE REST OF THE WORDS 
SHOULD BE STILL 0. IF THIS ERROR 
OCCURS, 'WORD #' (OF THE BUFFER) AS 
INDICATED IN THE EROR MESAGE) GOT 
CHANGED WHEN READ WAS DONE FROM 
THE DISK, INDICATING THAT WITH IBA 
SET X-FER WAS NOT DONE INTO THE 
SAME MEMORY LOCATION. 'WORD #' 
IS OCTAL t SPECIFIES THE POSITION 
IN THE BUFFER (FIRST WORD IS 'WORD #' 

.-EXIT 



1) 



•TEST 35 CHECK THAT RK11 INTERRUPTS WHEN IDE IS SET 

;*THIS TEST CHECKS IF RK11 INTERRUPTS TO ITS DESIGNATED VECTOR 
;*ADDRESS WHEN IDE BIT IS SET, WITH CONTROL READY SET t GO CLEAR. 

IT IS NORMALLY 220. UNLESS IT HAS BEEN CHANGED. IF IT HAS BEEN 
;*CHANGEO RK11 WILL INTERRUPT TO 'RKVEC. NOTE 'RKVEC HAS 
.■•TO BE SET UP BY THE USER. 



TST35: 



SCOPE 
CNT. RESET 



64S: 



TST. SIN 

MOV 
MOV 
RTI 

MOV 
MOV 



#340, -(SP) 
#64$. -(SP) 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRt IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET, IF SET 
DO DRIVE RESET TO CLEAR IT 



RKCS,R1 
RKVEC. RO 



;GET POINTER TO RK VECTOR ADRES 
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MACni 
T35 



4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

46A3 

4644 

4645 

46A6 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 



014226 
014232 
014236 
014240 
014242 
014246 

014252 
014256 



014260 
014262 



014316 
014322 
014326 
014330 



014330 
014332 
014340 



012720 
012710 
105711 
100376 
012711 
104420 

011137 
104074 



000400 
022626 



014262 
000340 



000100 
000005 

001162 



014264 022626 

014266 012777 

014274 104420 

014300 000403 

014302 022626 

014304 022626 

014306 104020 



014302 165106 
000005 



2$: 



014310 012777 004600 165064 3S: 



012746 
012746 
000002 



000340 
014330 



6SS: 
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CHECK THAT RKII INTERRUPTS WHEN IDE 



IS SET 



SEO 0085 



NOV 


#1S,(R0}* 


SET UP INTERRUPT VECTOR FOR RKll 


MOV 


#340. (RO) 


SET PSU ON INTERRUPT 


TSTB 


iRI 


WAIT FOR CNTRL RDV TO SET 


BPL 


.-2 




nov 


#100. iRI 


SET IDE BIT IN RKCS 


WAT. INT 


.5 


WAIT FOR INTERRUPT. ATLEAST 






37 US FOR 11/20, 7 US FOR 11/45 


nov 


iRI.SREGO 


GET RKCS 


ERROR 


74 


RKll DID NOT INTERRUPT WHEN IDE 






WAS SET, WITH CNTRLE RDY SET I GO 






CLEAR 


BR 


IS 




CHP 


(SP)*. (SP)* 


RKll INTERRUPTED CORRECTLY TO 






THIS. RESTORE STACK POINTER 






■(FROM RKll INTERRUPT) 


CHP 


(SP)*.(SP)* 


■RESTORE STACK POINTER 






■(FROM WAT. INT) 


nov 


#2S,aRICVEC 


■IF THERE IS FAULTY POLLING OR INTERUPT 






■ LOGIC SECOND INTERRUPT MIGHT OCCUR 


WAT. INT 


.5 


;WAIT FOR INTERRUPT, IF ANY 






;DUE TO FAULTY LOGIC 


BR 


3S 




CNP 


(SP)*. (SP)* 


;RESTORE STACK PTR (FROM RKll INTRUPT) 


CMP 


(SP)*. (SP)* 


.RESTORE STACK PTR (FROM WAT. INT) 


ERROR 


20 


;AN UNEXPECTED RKH INTERRUPT 






.OCCURED. THERE SHOULD HAVE BEEN 






.ONLY 1 INTERRUPT (TO 1$ ABOVE) 


MOV 


#BADINT,aRICVEC 


:RESTORE VECTOR ADRES FOR 






.•UNEXPECTED RKll INTERRUPT, 


MOV 


#340, -(SP) 




MOV 


#65$, -(SP) 





RTI 



.•♦TEST 36 



CHECK THAT WITH IDE SET RKll INTERRUPTS AFTER INTIATION I COMPLETION OF 



;*THIS TEST CHECKS THAT AN INTERRUPT FROM RKll OCCURS AFTER 
;*A SEEK IS INITIATED WITH 'IDE' BIT SET. AND THEN A SECOND 
.••INTERRUPT OCCURS AFTER THE SEEK IS DONE. IT ALSO CHECKS THAT 
.•♦AFTER THE FIRST INTERRUPT 'SCP* BIT IS NOT SET. WHEREAS AFTER 
.•♦THE SECOND INTERRUPT 'SCP* IS SET. 
."♦THIS TEST ALSO CHECKS A PART OF THE POLLING LOGIC. 



000004 
012737 
104413 



000005 001206 



TST36: SCOPE 

MOV #5.$TIHES 
CNT. RESET 



;D0 5 ITERATIONS 
GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
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oil 

Pi I 


T 1 r C Q 7 0 


AO .CI 

OB: 51 




T 7A 

T3o 


CHECK THAT WITH IDE SE 


*tOf\) 
















HOI 1 
















HOI C 


A 1 / 7/ 0 

01 43*i£ 


01 3^00 


AA1 775 

001 33c 






nov 


RKCS.RO 


HOI J 


U 1 HJHO 


A1 7777 

01 3f f ' 


AA1 7CA 
001 350 


1 A/ 7A/ 

1o4ro4 




nov 


DRIVAD.aRKDA 


HO 1 H 


U 1 h35h 


AAA 777 
004 (if 


A51 CAA 
Ocl 504 






JSR 


PC.DRESET 




014560 


1 A/ AOA 

1040cO 








ERROR 


26 


HOf 0 
















HO 1 1 


m / TXT 


A1 77A1 

0 1 if 0 1 


AA1 A A5 

00 1 hUc 




5t ■ 
C» • 


nov 


RKVEC.R1 


L t. 7B 
HOfO 


01 h36o 


A1 5751 


A1 A A75 

01 4«»3c 






nov 


#3S,(R1)+ 


Lt.7Q 

HO IT 


\J\Hil c 


A1 571 1 

01 £ f 1 1 


AAA7A A 

UOU3hO 






nov 


#340. (R1) 


hOOU 


U 1 H 3^ 0 


O^ 5777 


AAAAA A 
000040 


1 AA 77A 
1 Oh f 3h 




BIS 


#40.aRKDA 




0 1 hHOh 


A1 571 A 
01 C ' 1 0 


AAA1 1 1 
0001 1 1 






nov 


1111 ,aRO 




m Z.Z. 1 n 

U 1 HH 1 0 


1 AA A 5A 
1 OhhcU 


AAA7AA 

000300 






WAT. INT 


.300 


















































A ASA 
















Z. Afl7 


















\J \ HH \ H 


01 5 777 

\}\cl f 1 


AAA AAA 
OOhOOU 


1 AA 7A0 
1 Oh f 00 




nov 


#BADINT.aRKVEC 


hOOt 


U 1 HHCC 


nil 077 


AA1 1 A5 
00 1 1 Oc 






nov 


aRO.SREGO 




U 1 HH£0 


1 0A07^ 








ERROR 


75 


«iOt I 


















U 1 HH jU 


AOOA05 








BR 


3$+4 




ni 75 
L' 1 HH 


A55A5A 






7C • 


cnp 


(SP)+.(SP)+ 


HOT*! 


















U 1 HH JH 


055A3A 








cnp 


(SP)+.(SP)* 


hOtO 
















HOT 1 


rtl AATA 
U 1 HH jO 


01 5777 
\J\Cf 1 f 


01 A^05 


1 AA77A 
1 Oh I 50 




nov 


«5S.aRKVEC 


hOtO 


yj \ HHHH 


07571 O 


A50000 
OcUOUU 






BIT 


#20000. aRO 


Z. AQQ 

HOTT 


m AA 

U 1 HH JU 


001 A07 
UU 1 hU5 








BEQ 


4S 


H f\)\) 


rtl AAC5 
U 1 HH3C 


Oil 077 

01 1 0 Jf 


001 1 A 5 
00 1 1 Oc 






nov 


aRO.SREGO 


H f U 1 


rtl A A 
U 1 hh5o 


1 OA07A 
1 OhU f 0 








ERROR 


76 


L 705 
















h(\J3 


U 1 HHOU 


1 AAA 50 


0^A700 




A t • 


WAT. INT 


.56700 


H f Uh 
















H f U3 
















H 1 I/O 
















H f Uf 


01 AAAA 

U 1 HHOH 


01 5777 


OOA AOO 


1 AA 71 0 
1 Oh f \ \) 




nov 


#BADINT,aRICVEC 


HI [JO 
















01 /.A 73 


00A777 

UUH 1 Jl 


051 005 
Uc 1 UUc 






JSR 


PC.GT3RG 


A71 fl 
H f 1 U 


01 AA7A 

U 1 HH f 0 


1 0A077 








ERROR 


77 


A 711 

H f 1 1 
















/.71 P 

H f 1 C 


01 A<:oo 

U Ih5UU 


OOOA01 








BR 


5»+2 


H 1 \ J 


01 AC05 


055A5A 






5» : 


cnp 


(SP)+,(SP)+ 


L^^L 

H f \ H 
















/.71 «; 

H 1 \J 
















H f 1 0 


01 L \i\L 


055A5A 
UccOcO 








cnp 


(SP)+,(SP)+ 


^71 7 

HI \ 1 














H f 1 O 


01 ACOA 


01 5777 


OOAAOO 


1 OhOOO 




nov 


#BADINT,aRICVEC 


A71<J 

H f 1 T 














H 1 CM 


01AC1 A 
U 1 H 5 1 H 


07571 0 
U JC ' 1 U 


030000 






BIT 


#20000, aRO 


H 1 C\ 


U 1 H PcU 


nnino7 








BNE 


6S 




014522 


01 1037 


001 162 






nov 


aRO.SREGO 


4723 


014526 


104053 








ERROR 


53 


4724 
















4725 


014530 


017701 


164572 




6S: 


nov 


aRKDS.RI 



58 PAGE 87 

RK11 INTERRUPTS AFTER INTIATION t COHPLETION OF S SEO 0086 

.■THIS IS A VERY BASIC ERRt IF IT 
.-OCCURS GO BACK TO TEST 10 

.-ADRES THE DRIVE 

:G0, DO DRIVE RESET 

;R/U/S RDY DIDN'T SET AFTER DOING 

.ABOVE DRIVE RESET 

.SET UP VECTOR ADRES FOR RKll INTERUPT 

.-SET UP PSW ON INTERRUPT 

.'ADRES CYLINDER #1 

.-SEEK. GO WITH IDE SET 

;WAIT FOR THE DRIVE TO 

.INTERRUPT AFTER ADRES WAS RECVD 

.-WAITING TIME: 1.4 HS FOR 11/20 

.-280 US FOR 11/45 

.-ERROR, IF INTERUPT DID NOT OCCUR 

.-BY NOU 

.-RESTORE UNEXPECTED RK11 INTERRUPT 
,-GET RKCS 

; INTERRUPT DID NOT OCCUR AFTER 
.SEEK WAS INITIATED WITH IDE SET 

;0K, IF RK11 INTERRUPTED TO THIS 

.-RESTORE STACK POINTER (FROM RKll INTERRUPT) 

.-RESTORE STACK POINTER (FROM 

.-WAT. INT) 

.-SET UP NEW VECTOR ADRES FOR RKll 
.-IS SCP CLEAR 
;YES, BRANCH 
;GET RKCS 

;SCP SET BEFORE SEEK TO LAST 
.-CYLINDER WAS DONE 
:UAIT FOR DRIVE TO INTERRUPT 
: AFTER SEEK WAS COMPLETED 
.-WAITING TINE = 180 HS FOR 11/20 
;36 ns FOR 11/45 
;IT"S AN ERROR IF BY THIS JIK 
.•INTERRUPT HAS NOT OCCURERED 
;G0 GET RKCS, ER, DS 
,-RKl1 DID NOT INTERRUPT AFTER SEEK (TO 
;LAST CYLINDER) WAS DONE WITH IDE SET 

;0K. IF RKll INTERUPTED TO THIS AFTER 
.-SEEK WAS COMPLETED. RESTORE 
.-STACK POINTER (FROM RKll INTERRUPT) 
;RESTORE STACK POINTER (FROn 
.■WAT. INT) 

.-RESTORE RK11 INTERRUPT VECTOR ADRES 
.-FOR UNEXPECTED INTERUTS 
.-DID SCP BIT SET? 
.-YES. BRANCH 
.-GET RKCS 

;SCP DID NOT SET AFTER RKll INTERRUPTED 
.-INDICATING SEEK WAS DONE 
.-GET RKDS 
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T36 CHECK THAT WITH IDE SET RICH INTERRUPTS AFTER INTIATION t COnPLETION OF S SEQ 0087 



4726 


014S34 


04P701 


01 7777 


4727 




0?01 37 


001 ^so 


4728 








4729 








4730 




w 1 J f •♦U 


OOI^SO 


4731 


014552 


004737 


0?1?00 


473? 




01P637 


0011 67 

vv 1 1 OC 


4733 


014567 

w 1 JVC 


010146 




4734 


014564 


004737 


021200 

wC 1 C WW 


4735 


014570 


012637 


001164 


4736 


w 1 ^ r 


1 04047 




4737 








4738 








4739 








4740 








4741 








4742 








4743 


014576 






4744 


014576 

W 1 ~ ^ • w 


012746 


000340 

www J ~ w 


4745 


014602 


012746 


014610 


4746 


014606 

w 1 ~ W W W 


000002 

W WW W b 




UlUl 


014610 






4748 


014610 


104413 




4749 


014612 

W 1 T W 1 c 


013777 


001350 

WW 1 ^ ^ w 


4750 


014620 

W 1 ~ w C. W 


032777 


160000 

1 UWWwW 


4751 


014626 


001404 




4752 


014630 


01 7737 


164472 


4753 


014636 


104050 




4754 








4755 








4756 








4757 


014640 


022710 


000200 

W W W w w w 


4758 


014644 


001403 




4759 


014646 

V ' ^w~w 


011037 


001162 


4760 


014652 


104100 




4761 








4762 








4763 








4764 








4765 








4766 








4767 








4768 


014654 


000004 




4769 


014656 

W 1 ^ w ^w 


104413 

1 W^^ 1 J 




4770 








4771 








4772 








4773 








4774 








4775 








4776 








4777 








4778 








4779 


014660 


104421 




4780 








4781 









BIC #17777, R1 

CNP RI.DRIVAD 

BEQ 7S 

HOV . DRIVAD.-(SP) 

JSR PC.SHFTRT 

NOV (SP)*.$REGO 

nOV R1,-(SP) 

JSR PC.SHFTRT 

MOV {SP)*,$REG1 

ERROR 47 



MASK NON-ID BITS IN RKDS 
CORRECT ID BITS IN RKDS? 
YES, BRANCH 

PUSH DRV ADRES ON THE STACK 

GO, SHIFT RIGHT DRV f 

GET EXPCTD DRV » 

PUSH ID BITS ON THE STACK 

GO SHIFT THEH RIGHT 

POP THE RECVD ID BITS 

WRONG ID BITS WERE RECVD IN 

RKDS AFTER SEEK WAS DONE (INTRUPT 

NODE). 'EXPCT' INDICATES THE DRIVE 

f THAT SHOULD HAVE BEEN IN THE 

ID BITS, 'RECVD' INDICATES THE 

DRIVE # THAT WAS RECVD IN THE ID BITS 



7$: 



64$: 



8$: 



MOV #340. -(SP) 

HOV #64t.-(SP) 
RTl 

CNT. RESET 

nOV DRIVAD,aRKDA 

BIT #160000,aRKDS 

BEQ 8S 

nOV aRKDS,$REGO 

ERROR 50 



CHP #200, aRO 

BEQ TST37 

NOV aR0,$REG0 

ERROR 100 



;G0 DO CONTROL RESET 
.ADRES THE DRIVE 

:DID CNTRL RESET CLEAR DRIVE ID BITS? 
:YES, BRANCH 
:6ET RKDS 

.-CONTROL RESET DIDN'T CLEAR THE 

;DRIVE ID BITS (13-15) IN RKDS 

WAS SCP BIT CLEARED BY CNTRL RESET? 
.YES. EXIT 
GET RKCS 

CNTRL RESET DID NOT CLEAR SCP BIT 



;*TEST 37 CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ IS DONE 

.••THIS TEST CHECKS THAT WHEN A DATA TRANSFER FUNCTION IS DONE 
;*WITH IDE BIT SET. RKll INTERRUPTS WHEN THE FUNCTION IS COMPLETED 
.••FUNCTION USED IN THIS TEST IS READ. 



TST37: 



SCOPE 
CNT. RESET 



TST.SIN 



GO. DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTP.OL RESET IS 
ISSUED AND AFTER A CERTAIN TINE 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET* IS LOCATED. 
THIS IS A VERY BASIC ERRt IF IT 
OCCURS 60 BACK TO TEST 10 
CHECK IF SIN IS SET. IF SET 
DO DRIVE RESET TO CLEAR IT 
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CZRKKF.P11 21-FEB-78 08:51 T37 CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ IS DONE SEO 0088 



A 782 


014662 


01 5700 


001332 






nov 


RKCS RO 




A 783 


014666 


01 3702 


001 340 






MOV 


RKDA R2 




A 784 


01 A672 


01 3704 


001 336 






nov 


RKBA RA 




A 785 


C1A676 


013701 


001 350 






MOV 


DRIVAD R1 




A 786 


01 A702 


052701 


000013 

WW 1 J 






BIS 


#13, R1 


SET BITS FOR SEC 13 


A 787 


01A706 


012777 


1 77600 


16AA20 




MOV 


#-200 aRKUC 


READ 200 (OCTAL WORDS) 


A 788 


01 A71 A 


010112 








MOV 


R1,aR2 , 


FROM THIS DISK ADRES (CVL 0 SEC 13) 


A 789 


01A716 


01271 A 


0333A2 






MOV 


#OUTBUF .aRA 

www • WW" / >» T 


INTO THIS BUS ADRES 


A 790 


01A722 


013705 


001A02 






MOV 


RKVEC.R5 




A791 


01A726 


012725 


01A76A 






MOV 


#1S (R5)^ 


SET UP VECTOR ADRES FOR RKll TO INTRUPT 


A 792 


01A732 


012715 


0003A0 






MOV 


#3A0, (R5) 


SET psu ON :nterupt 


A 793 


01A736 


012710 


000105 






MOV 


#105. aRO 


READ. GO. IDE SET 


A79A 


01A7A2 


10AA20 


127710 






yAT. INT 


,127710 


WAIT FOR RKll TO INTERRUPT ON 


A 795 
















COMPLETION OF READ 


A 796 
















WAITING TIME= 337 MS FOR 11/20 


A 797 
















67 MS FOR 11/45 


A 798 


01A7A6 


012777 


00A600 


16AA26 




MOV 


#BADINT,aRKVEC 


■RESTORE UNEXPCTED INTERRUPT VECTOR ADRES 


A 799 


01A75A 


011037 


001162 






MOV 


aRO,SREGO 


GET RKCS 


A 800 


01A760 


10A101 








ERROR 


101 


RKll DID NOT INTERRUPT AFTER READ 


A801 
















WAS DONE. IDE BIT SET. 


A802 


01A762 


OOOAOA 








BR 


IS^IO 




A803 


01A76A 


022626 






IS: 


CMP 


(SP)*,(SP)* 


-OK, IF RKll INTERRUPTED TO THIS 


A 80 A 
















■RESTORE STACK POINTER (FROM RKll INTERRUPT) 


A805 


01A766 


022626 








CMP 


(SP)*,(SP)* 


;RESTORE STACK POINTER (FROM WAT. INT) 


A 806 


014770 


012777 


004600 


16AA0A 




MOV 


#BADINT.aRKVEC 


■RESTORE UNEXPECTED RKll INTERRUPT 


A807 
















■VECTOR ADRES 


A 808 


014776 


004737 


021342 






JSR 


PC ,CHKER 


CHECK IF ANY BIT IN RKER IS SET. 


A 809 
















■ IF YES. RETURN HERE . 


A810 


015002 


104036 








ERROR 


36 


;RKER SET ON DOING READ FROM SEC 0, 


A811 
















; CYL 13 IN INTERRUPT MODE 


A812 


015004 


062701 


000005 




A$: 


ADD 


#5,R1 


;RKDA SHOULD HAVE INCREMENTED TO THIS 


A813 


015010 


020112 








CMP 


R1 ,aR2 


:DID RKDA INCREMENT CORRECTLY'' 


A81A 


015012 


001405 








BEQ 


2S 


;YES BRANCH 


A815 


015014 


010137 


001162 






MOV 


R1 ,SREGO 


;GET EXPCTD RTDA 


A816 


015020 


011237 


001 164 






MOV 


aR2,SREG1 


;GET RKDA RECVD 


A817 


015024 


104040 








ERROR 


40 


;RKDA INCREMENTED WRONG ON DOING 


A818 
















;A READ ON CYL 0, SEC 13 


A819 


015026 


004737 


021316 




2S: 


JSR 


PCCHKyC 


;CHECK THAT RKWC OVERFLOWED TO 0, 


A820 
















; IF NOT RETURN HERE. 


A821 


015032 


104041 








ERROR 


41 


■RKWC DIDN'T OURFLO AFTER 


A822 
















;A READ OF 200 WORDS 


4823 


















482A 


015034 








3S: 








4825 


015034 


0127A6 


000340 






MOV 


#340, -(SP) 




4826 


015040 


012746 


015046 






MOV 


#64$, -(SP) 




4827 


015044 


000002 








RTI 




4828 


015046 








6AS: 








4829 


015046 


022714 


0337A2 






CMP 


#OUTBUF*400,aR4 


;DID RKBA INCREMENT CORRECTLY? 


4830 


015052 


001406 








BEQ 


TST40 


:;YES, EXIT 


4831 


015054 


012737 


033742 


001 162 




MOV 


#OUTBUF*400,SREG0 ;GET EXPCT RKBA 


4832 


015062 


011437 


001164 






MOV 


aRA,SREG1 :GET RKBA RECVD 


4833 


015066 


104042 








ERROR 


42 


-RKBA DID NOT INCREMENT CORRECTLY 


4834 














: AFTER A READ OF 200 WORDS 


4835 


















4836 












4837 










;*TEST 


AO 


CHECK THAT RKll 


INTERRUPTS AT BR5 ONLY 



MD-n-CZRKKF 
CZPKKF .P11 



RK11 BASIC LOGIC TEST 2 
21-FEB-78 08:51 



••O JO 










LAXQ 

••0 JT 




















L^lL^ 

HO't 1 




















hOM j 










LULL 










LUL^ 












01 ^n?n 

V 1 jU f u 


nnnnnL 








ni sn?? 

U 1 JU r c 


1 0441 

I UHH 1 J 






LfKLR 

H OHO 










HOH T 










HO JU 










H03 1 










H03C 










ho J J 










HO JH 










HO J J 










HO JO 










HO J f 


ni sn74 

\J 1 JU f H 


1 04471 

1 UHHC 1 






HO JO 










HO J7 


ni sn7A 

U 1 JU r O 


ni ?7^7 


ni SI ^? 

U 1 J 1 JC 


nni 110 


HOUW 










HOW 1 


fli S104 

U 1 J 1 UH 


017700 

V 1 J r Uv 


001 53? 

vw I JJL, 




HOOC 


ni s 1 10 

U 1 J 1 1 w 


01^777 


001 350 

WW \ J J\f 


164??? 

1 OHC C C 


HOO J 


ni ^1 1 A 

U 1 J 1 1 U 


01?701 


000007 




HOOH 


nisi?? 

U 1 J 1 cc 




wUU JHU 




HOO J 


ni SI ?A 

U 1 J 1 CO 




oni Ann 

Vl/ I HW 




HOOO 










HOO 1 










HOOO 










LRM 

HOO 7 


ni SI ^? 

U 1 J 1 JC 


ni ^704 

U 1 J r vH 






HO w \i 


01 SI ^6 


01?7?4 


015244 




4871 

*ffO r I 


01S14? 

U 1 J 1 He 


01?714 

V 1 C > 1 H 


000340 

JH W 




HO r C 


ni S14A 

U 1 J 1 HO 


V 1 UCHO 






*vO r J 


015150 


01?746 

V 1 C f HO 


01 51 56 




LR7L 


01 51 54 

\i t J i JH 


00000? 






HO r J 


01 S1 








HO r w 


01 51 56 


01?710 


000100 

www 1 WW 




4877 

HO r f 


01516? 

V \ J IOC 


01?705 


1 77760 

1 f f 1 Ww 




4878 

HO f O 


01 5166 

V 1 J 1 vv 


005?05 






4870 

HO f T 


015170 

U 1 J 1 r w 


001 X76 

UU 1 Jr U 






4880 

HOOv 


01517? 


0?0?0? 

UC VC w J 






4881 

HOO 1 


015174 

W 1 J 1 r H 


00^005 

WW J 






488? 

HOOC 










488^ 

HOO J 










HOOH 


01 51 76 


0101 ^7 


001 16? 




HOO J 


015?0? 


01 10^7 

w 1 1 w J • 


001 164 

WW 1 1 w ~ 




HOOO 


015?06 

V 1 J C vO 


104103 

1 w^ 1 w J 






4887 

HOO • 










4888 










4889 


015210 


005010 






4890 


015212 


062702 


177740 




4891 










4892 


015216 


005301 






4893 


015220 


001344 
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T40 CHECK THAT RK11 INTERRUPTS AT BR5 ONLY 

•THIS TEST CHECKS THAT RKll CAN ITERRUPT AT BR5 ONL". IF IT 
•INTERRUPTS AT A LEVEL HIGHER THAN BR5 AN ERROR IS INDICATED. 
•If IT DOES NOT INTERRUPT AT BR5 QRLOWER THEN ALSO AN 
•ERROR IS INDICATED. IF FOR SOME REASON THE INTERRUPT 
•LEVEL IS CHANGED FROM BR5. THEN CONTENTS OF RKPRI WILL 
•HAVE TO BE CHANGED ACCORDINGLY AND STILL TEXT WILL 
•CHECK FOR THIS BR LEVEL. 



SEQ 0089 



TST40: 



IS: 



4S: 



2$: 



SCOPE 
CNT. RESET 



TST.SIN 

nov 

MOV 
NOV 
MOV 
MOV 
MOV 



#1S,SLPERR 

RKCS.RO 
DRIVAD,aRKDA 
#7,R1 
#340, R2 
RKPRI, R3 



MOV 


RKVEC,R4 


MOV 


#3S.(R4)* 


MOV 


#340, (R4) 


MOV 


R2.-(SP) 


MOV 


#4S.-(SP) 


RTI 




MOV 


#100. iRO 


MOV 


#-20. R5 


INC 


R5 


BNE 


.-2 


CMP 


R2,R3 


B6T 


2S 


MOV 


R1.SREG0 


MOV 


iRO.SREGI 


ERROR 


103 


CLR 


aRO 


ADD 


#-40. R2 


DEC 


R1 


BNE 


1$ 



GO. DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR( IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET. IF SET 
DO DRIVE RESET TO CLEAR IT 
SET RETURN ADRES FOR LUPING 
ON ERROR (SW 9) 



PRIORITY LEVEL 7 
BR LEVEL 7 FOR PSU 
NOTE. IF RK11 INTERRUPT LEVEL IS 
CHANGED FROM 5 TO ANY OTHER LEVEL 
THEN CHANGE CONTENTS OF 'RKPRI' 
ACCORDINGLY 

.-SET UP ADRES. FOR RKll TO INTERUPT 
;SET UP PSU OK INTERUPT 

.-SET PROCESSOR PRIORITY LEVEL AS 



INDICATED BY R2 

SET THE IDE BIT 

WAIT FOR THE RKll INTERRUPT 

WAITING TINE:78 US FOR 11/20 

13 US FOR 11/45 

WAS THE CPU PRIORITY LEVEL LESS THAN 
THE RKll LEVEL? IF YES. RKll 
SHOULD HAVE INTERRUPTED. ERROR. 
IF IT DID NOT 
GET CPU BR LEVEL 
GET RKCS 

THOUGH CPU LEVEL WAS LESS THAN 
THE RKll LEVEL (5), RICH DID NOT 
INTERRUPT 
CLEAR RKCS 

DECREASE THE PRIORITY LEVEL (FOR 
CPU) BY 1 

CPU WILL B AT THIS LEVEL 

LUP BAK I CHK FOR THIS BR LEVEL. 



HO-n-CZRKKf , RKIl BASIC LOGIC TEST 2 
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n 7 

HACni 30A(1052) 21-fEB-78 08:58 PAGE 91 
T40 CHECK THAT RK11 INTERRUPTS AT BR5 ONLY 



SEO 0090 



4894 










4895 


015222 


012777 


004600 


164152 


4896 










4897 


015230 


012746 


000340 




4898 


015234 


012746 


015242 




4899 


015240 


000002 






4900 


015242 








4901 


015242 


000414 






4902 










4903 


015244 


022626 






4904 


015246 


012777 


004600 


164126 


4905 










4906 


015254 


020203 






4907 


015256 


003754 






4908 










4909 










4910 


015260 


010137 


001162 




491 1 


015264 


011037 


001164 




4912 


015270 


104104 






4913 










4914 










4915 










4916 


015272 


000746 






4917 










4918 










4919 










4920 










4921 










4922 










4923 










4924 










4925 










4926 


015274 


000004 






4927 


015276 


104413 






4928 










4929 










49Tn 










4931 










4932 










4933 










4934 










4935 










4936 










4937 


015300 


104421 






4938 










4939 


015302 


013701 


001350 




4940 


015306 


052701 


014535 




4941 










4942 


015312 


012777 


4 "y^TP^ 
Ufiff 


164014 


4943 


015320 


0W777 


033342 


4 ^ y A 4 A 

164010 


4944 


015326 


A1 A1 77 


IdHOOo 




4945 










4946 


015332 


012777 


000005 


163772 


4947 










4948 


015340 


005002 






4949 


015342 


105777 


163764 





64S: 
3S: 



nOV tBADINT.aRKVEC 

HOV #340. -(SP) 

nOV #64t,-(SP) 
RTI 

BR TST41 

CHP (SP)+.(SP)* 

MOV #BADINT,8RICVEC 

CHP R2.R3 

BLE 2t 



nOV RI.SREGO 
nOV aRO.SREGl 
ERROR 104 



BR 



2% 



DONE WITH CHKING FOR ALL LEVELS. 
RESTORE UNEXPECTED RK11 INTERRUPT 
VECTOR 



.•EXIT. TO NXT TST 

RESTORE STACK POINTER 

RESTORE UNEXPECTED RKll INTERRUPT 

VECTOR 

IF THIS INTERRUPT OCCURED WHEN 

CPU LEVEL WAS LESS THAN THE 

RKll PRIORITY LEVEL (5) THEN IT IS 

OK. IF NOT SO. ERROR 

GET CPU BR LEVEL 

GET RKCS 

RKll INTERRUPTED WHEN THE CPU 
LEVEL (AS POINTED BY Rl) WAS 
HIGHER OR SANE AS THE RKll 
LEVEL (5) 

GO BACK t CHK THE NXT LEVEL 



;*TEST 41 SIMULATE I CHECK 'OVR' ERROR 

:*THIS TEST SIMULATES OVERRUN ERROR AND CHECKS IF THE OVR 
:*BIT IN RKER GETS SET. THEN IT IS CLEARED USING CNTRL RESET 
;*t CHECKED THAT IT WAS CLEARED. OVR CONDITION IS SIMULATED 
;*By TRYING TO READ 401 (OCTAL) WORDS FROM LAST CYLINDER(312) . 
:*LAST SECTOR (13). SURFACE 1. 



TST41 



SCOPE 
CNT. RESET 



1$: 



TST. SIN 

NOV DRIVAD.RI 

BIS #14533. Rl 

NOV #-401.aRICUC 

NOV #0UTBUF.aRKBA 

NOV Rl.aRKDA 

NOV #5.aRKCS 

CLR R2 

TSTB aRKCS 



GO. DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET* ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TINE 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRft IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET. IF 
SET. DO DRIVE RESET TO CLR IT 
GET ADRES OF DRIVE 
SET BITS FOR LAST CYLINDER (312), 
SUR 1. LAST SECTOR (13) 
READ 401 WORDS 
INTO THIS MEMORY BUFFER 
FROM THIS DSK ADRES. LAST CYL. 
LAST SEC. SURFACE 1 
:READ. GO 



;OID CNTRL RDY SET? 



MD-11-C2RKKF, 
CZRKKF.P11 



A950 

4951 

4952 

4953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 

4975 

4976 

4977 

4978 

4979 

4980 

4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 

5000 

5001 

5002 

5003 

5004 

5005 



015346 
015350 
015352 



RK11 BASIC LOGIC TEST 2 
21-FEB-78 08:51 

100410 
005202 
001373 



NACV11 30A(1052) 
T41 SIMULATE 

BNI 
INC 
BNE 



N 7 

21-FEB-78 08:58 PAGE 92 
I CHECK 'OVR' ERROR 



SEQ 0091 



2S 
R2 
IS 



YES'. BRANCH 
NO, WAIT FOR IT 

IF WAITED LONG. REPORT ERROR MESSAGE BECAUSE 
OVR SHOULD HAVE SET HE CAUSING 
CNTRL RDY TO SET BY NOW 



015354 


017737 


163754 


001166 




NOV 


aRKUC,$REG2 




015362 


004737 


021010 






JSR 


PC.GT2RG 


GO, GET RKCS, ER 


015366 


104002 








ERROR 


2 


CNTRL RDY DID NOT SET AFTER DOING 
AN OVR READ. HE SHOULD HAVE OCCURED 
SETTING CNTRL RDY (HE BECAUSE OF 
OVR CONDITIONS) 


015370 


032777 


040000 


163732 


2S: 


BIT 


#40000, aRKER 


DID OVR BIT SET IN RKER? 


015376 


001006 








BNE 


3$ 




015400 


004737 


021010 






JSR 


PC.GT2R6 


GET RKCS, ER 


015404 


012737 


040000 


001166 




nov 


#40000. $REG2 


THIS BIT (OVR) DID NOT SET. 


015412 


104105 








ERROR 


105 


OVR ERROR BIT DID NOT SET IN RKER 
ON^ SIMULATING OVR CONDITIONS 


015414. 


022777 


140204 


163710 


3$: 


CH" 


#140204.aRKCS 


-DID HE t ERR SET WHEN OVR SET IN RKER? 


015422 


001403 








BEQ 


4S 


YES. BRANCH 


015424 


004737 


021010 






JSR 


PC.GT2RG 


iGET RKCS. ER 


015430 


104106 








ERROR 


106 


;HE OR ERR BIT DID NOT SET IN RKCS WHEN 
;AN OVR ERROR WAS SIMULATED 
;CLEAR OVER. ERR. HE BITS 


015432 


104413 






4S: 


CNT. RESET 


;G0, DO CONTROL RESET 



015434 

015440 

015442 

015446 

015450 
015454 



004737 

104102 

004737 

104102 

004737 
104026 



021356 



021402 



021504 



5$: 



6S: 



JSR 

ERROR 

JSR 

ERROR 

JSR 
ERROR 



PC.CHKECLR 

102 

PC.CHKCCLR 
102 

PC.DRESET 
26 



THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR& IF JT 
OCCURS 60 BACK TO TEST 10 
CHECK IF 'OVR' BIT WAS CLEARED BY 
CON. RESET, IF NOT RETURN HERE. 
CNTRL RESET DID NOT CLEAR OVR 
BIT IN RKER 

CHECK IF 'ERR' ft 'HE' BIT GOT CLEARED BY 

CON. RESET, IF NOT RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

HE OR ERR BIT IN RKCS. 

GO DO DRIVE RESET 

R/W/S RDY DIDN'T SET 

AFTER THE ABOVE DRIVE RESEl 



015456 
015460 



000004 
104413 



.•♦TEST 42 SIMULATE ft CHECK PCE ERROR 

;*THIS TEST SIMULATES 'PROGRAMMING ERROR' ft CHECKS IF IT IS 
.-♦DETECTED BY P6E BIT IN RKER. THEN A CNTRL RESET IS DONE ft 
:*IT IS CHECKED IF PGE BIT WAS CLEARED. IT IS ALSO CHECKED IF 
;*THE SETTING ft CLEARING OF P(iE BIT SETS ft CLEARS HE. ERR 
.■•BITS IN RKCS. 

TST42: SCOPE 

CNT. RESET ;G0. DO CONTROL RESET 

.THIS IS A CALL FOR THE 'CNTRL- 



MD-n-CZRKKF 
CZRtCICf .P11 
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HAcni 

T42 



3OOO 








C AA7 








C AAB 
3OUO 








C AAO 








C A1 A 








CAI 1 

jU 1 1 








cm 5 
5u 1 c 








jU I 5 








CAI z. 


A1 C/ it 5 


1 A/ / 0 1 












cm A 


A1 C A AZ. 


A1 77A1 

Ul Jf Ul 


AAI 77A 

UU1 J jU 




A1 CZ. 7A 


A1 7777 


AA1 7cn 

UOl 35U 


cm B 








cm 0 


A1 CZ 7iL 


m 5777 


AA^A 1 1 

OU^U 1 1 










cn3i 


m ccnz 


1 AZZ 1 Z 




cn55 
5Ucc 
























cn5C 
















Crt57 


A1 CCAA 


A7371 1 


AAZ AAA 
UUhUUU 


cn^fi 


m CC1 9 


AA1 nnt. 
UU1 UUO 






m CC1 z 
U 1 55 1 •» 


m 07T7 

Ul c ' 5r 


AAZ AAA 

UUhUUU 




A1 CC53 
U 1 55cc 


nnz 777 


A51 A1 A 

Uc 1 U 1 U 


cnti 

3U J 1 


A1 

U 1 55cO 


1 nz 1 AC 




CAT? 


























ni ccxn 

U 1 55 jU 


A5P777 

vccf f f 


1 Z 351 A 




U 1 5530 


Am ^A7 






U 1 55*»U 


AAZ 777 


A31 A1 A 
Uc 1 U 1 U 






1 AZ 1 A* 
1 U<i 1 UO 




















CAA 1 


A1 CCZ,/< 


1 AZZ, 1 7 




















cnz,z. 
























cnz.7 








CAAB 
DU*»o 
























cnci 


A1 CCCA 

U 1 jjjVJ 


nnz 777 

UU*« f jf 


A31 7CA 
Uc 1 j50 


JVJC 










m ccc/ 
















m CCCA 


nrtZ.777 


AD1Z.AD 










5057 


015562 


104102 




5058 








5059 








5060 








5061 









IS: 



2S: 



3$: 



30A{1052) 
SIMULATE 



21-fEB 
I CHECK 



B 

■78 
PGE 



8 



08:58 
ERROR 



PAGE 93 



SEO 0092 



TST.SIN 

nov 

MOV 



RKER.RI 
DRIVAD.iRKDA 



nov #20ii,aRKCs 

CNT.RDV 



BIT #4000, iRI 

BNE IS 

MOV #4000,SREG2 

JSR PC,GT2RG 

ERROR 105 



CHP #142210.aRKCS 

BEG 2S 

JSR PC.GT2RG 

ERROR 106 



CNT. RESET 



JSR 
ERROR 
JSR 
ERROR 



PCCHKECLR 
102 

PC.CHKCCLR 
102 



RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDr' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC yHERE 'CNT. RESET* IS LOCATED. 
THIS IS A VERY BASIC ERRt IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET. IF 
SET DO DRIVE RESET TO CLR IT 

;ADRES THE DRIVE, CYLINDER 0 

SEEK, GO WITH FMT SET 
THIS IS A PGE SIMULATION 
THIS IS A CALL FOR 'CN.RDY' 
ROUTINE WHICH WAITS FOR CNT 
RDY TO SET. IF CNTRL RDY DOES 
NOT SET WITHIN 883 MS/ 11-20 
(176 MS FOR 11-45 WITH BIPOLAR) 
AN ERROR IS REPORTED 
DID PGE BIT IN RKER SET? 
YES BRANCH 

THIS BIT IN RKER (PGE) DID NOT SET 

GO GET RKCS, ER FOR MESAGE 

PGE BIT DID NOT SET IN RKER 

ON SIMULATION OF PGE CONDITION 

SREG2 CONTAINS THE RKER BIT (PGE) 

THAT SHOULD HAVE SET. 

DID HE ( ERR BITS SET? 

YES, BRANCH 

GO, GET RKCS, ER 

HE OR ERR BIT DID NOT SET WHEN 

PGE SET IN RKER. 

CLEAR PGE, HE. ERR BITS 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL ROY* DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET* IS LOCATED. 

THIS IS A VERY BASIC ERRI IF IT 

OCCURS GO BACK TO TEST 10 

CHECK IF 'PGE* BIT GOT CLEARED BY 

CONTROL RESET, IF NOT RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

PGE BIT IN RKER 

CHECK IF 'ERR* BITGOT CLEARED BY 
CON. RESET, IF NOT RETURN HERE. 
RKCS BITS HE OR ERR DID NOT 
GET CLEARED BY CNTRL RESET 



.••TEST 43 



SIMULATE ft CHECK NXM ERROR 
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SEO 0093 











































JVOO 










JVOf 










5000 










jUOt 


m CCA/. 


OUUUOm 






>Uf U 


U 1 3 300 


1 nz.z 1 7 






5Uf I 






























Qn7z. 










^n7S 










j\lfO 




















J\ll o 




















jUOU 


U 1 33 r U 


inA^3i 
1 \ihhc I 






?vO 1 










5082 


ni SS73 

U 1 33 1 c 


nnsnn3 

UU3UUC 








ni ss7£ 

U 1 33 f *• 


ni X70n 

U 1 3 r UU 


nni '^'^3 

UU 1 33c 




3UO*» 


U 1 301/U 


ni 3777 


1 77777 


1 03 JcO 




U 1 301/0 


ni ?777 


1 Annnn 
1 ouuuu 


1 A^S33 

1 033CC 


?uoo 


U 1 30 1 H 


ni T777 


nni ^sn 

UU 1 33U 


1 033 1 O 


3vOf 
^vOO 


U 1 30cc 


ni 37in 


nnnnA7 




ni 

w 1 30cO 


1 nS777 
1 U3 f f f 


1 A'^^nn 

1 033UU 




3UOt 


ni 

U 1 303c 


1 nn^i n 








ni SA'^^ 

U 1 30 J*» 


nnspn? 






3Ut I 


ni SA'^A 

U 1 3030 


nni ^7^ 

UU 13/3 








ni SA^n 


nn^ 7^7 

UvH f 3 ' 


vC 1 U 1 u 






ni ^f\LC 


ni 77^7 
U 1 r f 3 / 


1 03H0H 


nni 1 
UU I 1 oo 




ni SAS3 

w 1 303c 


1 n^ 1 1 

1 vH 1 1 3 
















JxJtO 




















3vtO 


w 1 30 3** 


V/3c Iff 


007000 


1 03H*tO 




ni 

w 1 300c 


nni noA 

l/U 1 vvO 






? 1 uu 


ni SAA^ 

U 1 300H 


nn^7T7 


n3i ni n 




3 11/1 


ni SA7n 

U 1 30r U 


01?7^7 
U 1 c r 3 r 


nn3nnn 


nni 1 AA 
UU 1 1 oo 




01 SA7A 

J 1 30 ' O 


logins 

1 vH 1 v3 


















ni S7nn 

1/ 1 3 r UU 


n3P710 


i^npAA 

1 hUcOO 






ni S7n^ 

1/ 1 3 f w*l 


nni ^n'^ 

l/U 1 Hv3 






J 1 uo 


ni s7nA 

U 1 3 r UO 


nn^7T7 

UU*t / 3 r 


n3i ni n 

Uc 1 U 1 w 




3 1 v r 


01*71? 
U 1 • ' 1 c 


10^1 OA 






3 I UO 










3 1 Ut 










3 I i V 


fli S714 

V 1 3 r 1 H 


in^^i^ 

1 UH*» 1 3 






S111 
3 111 










5112 










5113 










51U 










5115 










5116 










5117 











TST43: 



IS: 



2S: 



3X; 



4S: 



•THIS TEST SIMULATES A NON-EXISTENT MEMORY ERROR (NXM) AND 
•CHECKS IF IT IS DETECTED BY NXM BIT OR RKER. LOCATION 760000 
•IS REFERENCED t IT HAPPENS TO BE A NON EXISTENT LOCATION 
•(FOR DIAGNOSTIC PURPOSES LIKE THIS). IT IS ALSO CHECKED 
•IF HE t ERR BITS ALSO SET AND ALL 3 BITS CAN BE CLEARED 
• BY CONTROL RESET. 



SCOPE 
CNT. RESET 



TST.SIN 




CLR 


R2 


MOV 


RKCS.RO 


MOV 


#-1,aRKUC 


MOV 


#1 60000. iRKBA 


MOV 


DRIVAD.iRKDA 


MOV 


#67,aR0 


TSTB 


BRKCS 


BMI 


2t 


INC 


R2 


BNE 


1$ 


JSR 


PC,GT2RG 


MOV 


8RKUC.$REG2 


ERROR 


113 



BIT 
BNE 
JSR 
MOV 
ERROR 

CMP 
BEQ 
JSR 
ERROR 



ir200G.aRKER 
3$ 

PC.GT2RG 

#2000,$REG2 

105 

fU0266,aR0 
AS 

PC.GT2RG 
106 



CNT. RESET 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET* IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO TEST 10 
GO CHECK IF SIN IS SET 
IF SET DO DRIVE RESET TO CLR IT 



WRITE CHECK 1 WORD 
AT THIS BUS ADRES 

WITH THIS DISK ADRES (CYL 0, SEC 0) 

WRT CHK, GO, MEX BITS SET 

DID CNTRL RDY SET AS A RESULT OF HE? 

YES, BRANCH 

WAITED LONG ENOUGH? 

IF NOT LUP BAK t WAIT 

GET RRCS, ER 

GET RKWC 

CNTRL RDY DID NOT SET ON DOING 

A WRT CHK WITH A NXM LOCATION. 

THIS HE SHOULD HAVE SET THE 

CNTRL RDY BIT IN RKCS 

DID NXM BIT IN RKER SET? 

YES, BRANCH 

GO GET RKCS, RKER 

THIS BIT (NXM) DID NOT SET IN RKER 
NXM BIT DID NOT SET IN RKER ON 
SIMULATING NXM CONDITION. 
DID HE K ERR BIT SET? 
YES, BRANCH 

;G0, GET RKCS, RKER 
HE OR ERR BIT DID NOT SET WHEN 
NXM ERROR WAS SIMULATED 
CLEAR NXM, HE. ERR BITS 
GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
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SEQ 0094 



S11 A 

5 1 1 O 
















SI ?0 

J 1 CV 


ni S71 A 


00^757 


071 5S6 

uc 1 J JO 














1 UH 1 UC 




SI ?X 








SI ?^ 


M S77A 


00^757 


071^07 
vc 1 Huc 


S1?S 








S1>^. 




1 UH 1 uc 




S1P7 








^ 1 CO 


01 S757 


00^757 


071^56 

vC 1 H JO 


SI ?Q 








51 ^0 

J 1 


01 5756 


104016 




J I J \ 
















S11? 








SI ^4 
























51 57 








51 58 


01 5740 


000004 

w W W WW"V 




51 59 




10441 5 




5140 








5141 








5147 








5145 








5144 








5145 








5146 








5147 








5148 








5149 


015744 


104471 




5150 

J 1 Jw 








S1S1 


015746 

W 1 ^ * ^W 


015700 


00153? 

WW 1 JJQ, 


5157 


01575? 


017707 

W 1 C ( wc 


1 60000 

1 wwwww 


51 55 








51 54 


01 5756 


010777 

U ( WC f f 


165556 


5155 

J \ J J 


01 576? 


104417 


000001 

wWWwW 1 


5156 








5157 


015766 


105777 


165554 


5158 


015772 


100004 

1 WWVW^ 




5159 


015774 


06770? 
wwc * wc 


160000 

1 WWWWW 


5160 








5161 


016000 

W I wwww 


001 366 

WW 1 a/WW 




5167 

J * Wfc 








5165 


01600? 


000455 

WWWt -/ ^ 




5164 








5165 


016004 

V ' WWW" 


012710 

W > C ' * w 


00001 5 

WWWw 1 J 


5166 

J 1 WW 


016010 

W 1 WW 1 w 


104417 

1 W^~ 1 ' 


000106 

WWW 1 WW 


5167 

J ■ W ■ 








5168 


016014 


105777 


163310 


5169 


016020 


001006 




5170 


016022 


004737 


021010 


5171 


016026 


012737 


000200 


5172 


016034 


104105 




5173 









THIS IS A VERY BASIC ERRK IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF 'NXH' BIT GOT CLEARED BY 
CON. RESET, IF NOT RETURN HERE. 
CNTRL RESET DID NOT CLEAR 
NXn BIT IN RKER 

5S: JSR PC.CHKCCLR :CHECK IF 'HE' t 'ERR' BITS GOT CLEARED 

BY CON. RESET, IF NOT RETURN HERE. 
CNTRL RESET DID NOT CLEAR 
HE OR ERR BIT IN RKCS. 
6S: JSR PC.TSTRUS ;G0 CHECK IF R/U/S RDY IS SET I 

WAIT FOR IT. SKIP ERROR IF IT IS SET 
R/U/S RDY IS NOT SET 

:*TEST 44 SIMULATE I CHECK NXD ERROR 

;*THIS TEST SIMULATES NON-EXISTENT DISK ERROR 8 CHECKS IF 
:*IT IS DETECTED BY NXD BIT OF RKER. IF ALL EIGHT ARE PRESENT 
.-•THEN THIS TEST IS ABORTED FOR SIMULATION CANNOT BE DONE. 

■■A************************************************************** 



JSR 


PC.CHKECLR 


ERROR 


102 


JSR 


PCCHKCCLR 


ERROR 


102 


JSR 


PC.TSTRUS 


ERROR 


16 



TST44: 



SCOPE 
CNT. RESET 



1$: 



2$: 



TST.SIN 




MOV 


RKCS.RO 


MOV 


#1 60000, R2 


MOV 


R2,aRKDA 


DELAY 


.1 


TSTB 


aRKDS 


BPL 


2S 


ADD 


#-20000, R2 


BNE 


IS 


BR 


TST45 


MOV 


f15,SR0 


DELAY 


,106 


TSTB 


aRKER 


BNE 


3$ 


JSR 


PC,6T2RG 


MOV 


#200,SREG2 


ERROR 


105 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF TME 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRS IF IT 
OCCURS GO BACK TO' TEST 10 
CHECK IF SIN IS SET. IF SET 
DO DRV RESET TO CLR IT 

ADRES DRIVE 7 TO FIND 

IF IT IS PRESENT 

AORES DRIVE # POINTED TO BY R2 

TIME DELAY, 7.5 US ON 11/20. 

1.5 US ON 11/45 

IS IT PRESENT? 

NO, BRANCH 

ADRES THE NXT DRIVE IN THE 

REVERSE ORDER. I.E. 7,6 

LUP BAK % TRY TO FIND A DRIVE 
THAT'S NOT PRESENT 
;EXIT TO THE NXT TST 

DRIVE RESET. ON A NX DRIVE 

TIME DELAY, 525 US ON 11/20 

105 US ON 11/45 

DID NXD BIT IN RKER SET? 

YES, BRANCH 

GET RKCS, RKER 

THIS BIT (NXD) IN RKER DID NOT SET 
NXD BIT DID NOT SET ON TRYING 
TO PERFORM A FUNCTION ON A 



HO-11- 


CZRKKF. 


RK11 BASIC LOGIC 


TEST 2 


HACY11 


E 8 

30A(1052) 21-FEB-78 08:58 PAGE 96 


ICRKKF 


.PI 1 


21-FEB-78 


AO CI 

08:51 






SinULATc » iHcCK NXD cRKOK ScG 0093 


51 7A 














NON-EXISTENT DRIVE 


5175 














CHECK THAT THE JUMPER CARD CONTAINING 


5176 














JUMPERS FOR DRIVES PRESENT IS PROPERLY 


5177 














CONNECTED 


5178 














NOTE THAT ON RKlIC IF A DRIVE 


5179 














IS OFFLINE BUT PHYSICALLY PRESENT 


5180 














(IE. DRY IS CLR FOR THAT DRIVE) 


5181 














ft A FUNCTION IS INITIATED ON THAT 


5182 














DRIVE NXD WON'T SET, BUT U WILL 


5183 














GET ONLY A DRE.HE t ERR. 


5184 


016036 


022710 


140214 




3$: 


CMP #140214. aRO 


DID HE ft ERR SET WHEN NXD SET? 


5185 


016042 


001403 








BEQ 4S 


YES BRANCH 


5186 


016044 


004737 


A ^ 4 A4 A 

021010 






JSR PC,GT2RG 


HE OR ERR BIT DID NOT SET 


5187 


016050 


4 Ay i A^ 

1 04 1 06 








ERROR 106 


WHEN NXD WAS SIMULATED 


5188 














-CLEAR NXD, HE, ERR BITS 


5189 


016052 


1 Ai / IT 

104413 






4$: 


CNT. RESET 


■GO, DO CONTROL RESET 


5190 














THIS IS A CALL FOR THE 'CNTRL- 


5191 














■RESET' ROUTINE. A CONTROL RESET IS 


5192 














■ISSUED AND AFTER A CERTAIN TIME 


5193 














■IF THE 'CNTRL RDY' DOES NOT SET 


5194 














■AN ERROR IS REPORTED. NOTE THAT 


5195 














■THE PC IN ERROR MESSAGE IS THE 


5196 














•PC WHERE 'CNT. RESET' IS LOCATED. 


5197 














;THIS IS A VERY BASIC ERRt IF IT 


5198 














;OCCURS GO BACK TO TEST 10 


5199 


016054 


004 fir 


021 336 






JSR PCCHKECLR 


.•CHECK IF 'NXD' BIT WAS CLEARED BY 


5200 














;C0N. RESET. IF NOT. RETURN HERE. 


5201 


016060 


1 Ay 1 A^ 








ERROR 102 


;CNTRL RESET DID NOT CLEAR 


5202 














;NXD BIT IN RKER 


5203 


016062 


AAy 

004 73 r 


A^i / AO 

021402 




5$: 


JSR PC.CHKCCLR 


;CHECK IF 'HE' ft 'ERR' BITS WERE CLEARED 


5204 














;BY CON. RESET. IF NOT RETURN HERE. 


5205 


016066 


i A/ 1 A^ 

10410^ 








ERROR 102 


;CNTRL RESET DID NOT CLEAR 


5206 














;HE OR ERR BIT IN RKCS 


5207 


016070 


AA/ 777 


021436 






JSR PC,T3TRyS 


;G0 CHECK I WAIT FOR R/W/S RDY 


5208 














;T0 SET. IF SET SKIP ERROR 


5209 


016074 


1 A/ A1 X. 








ERROR 16 


;R/U/S SHOULD BE SET. IT'S 


5210 














;NOT 


5211 
















5212 
















5213 










;»TEST 


45 SIMULATE I CHECK 


NXC ERROR 


5214 












:*THIS TEST SIMULATES THE NON-EXISTENT CYLINDER ERROR % CHECKS 


5215 












;*IF IT IS DETECTED BY THE NXC BIT OF RKER. HE ft ERR BITS 


5216 












;*0F RKCS. IT IS CHECKED If THEY CAN BE CLEARED BY CONTROL 


5217 












;*RESET 




5218 












5219 


016076 


AAAAA/ 

000004 






TST45: 


SCOPE 




5220 


016100 


AIT 7AA 

01 00 


AA1 170 

001 5ie 






MOV RKCS.RO 




5221 


016104 


A1 07T7 

012737 


1 77777 

\ f f f f 3 


001362 


2$: 


MOV #-5, COUNT 


;ALLOU 'ERROR 133' ONLY 5 TIMES 


5222 


016112 


Ai T7A0 

01 3702 


AA1 7CA 

001 330 






MOV DRIVAD,R2 


;GET ADRES OF DRIVE 


5223 


016116 


AC 57A0 

032r02 


01 4340 






BIS #14540, R2 


•SET BITS FOR CYL 313 


5224 


016122 


012r3r 


Ai i 7A 
016130 


001110 




MOV #3S,$LPERR 


;SET RETURN ADRES FOR 


5225 














;LUPING ON EROR (SW9) 


5226 


016130 


104413 






3$: 


CNT. RESET 


;G0. DO CONTROL RESET 


5227 














;THIS IS A CALL FOR THE 'CNTRL- 


5228 














;RESET' ROUTINE. A CONTROL RESET IS 


5229 














; ISSUED AND AFTER A CERTAIN TIME 
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SEO 0096 



JC JSJ 








JCJ t 








jCjC 
















JC J** 








J c J J 










0161 32 


004737 


021436 

vC 1 "t JO 


JC J f 








JC JO 


0161 36 


104016 




JC Jr 


V 1 D 1 "t V 


104421 




JC" V 








J C ~ 1 


016142 


010277 

w 1 VC f f 


1631 7? 

1 U J I f C 


J C**C 


016146 

V 1 O 1 "*o 


012710 

V 1 C ' I V 


00001 1 

vvVv ' • 




0161 52 

V 1 O 1 JC 


1 V"*"» I C 












5245 


016154 

V 1 U 1 J^ 


104021 

1 W*WC I 




5246 








5247 

JC~ 1 








5248 








5249 

J C ' 


0161 56 


032777 

V JC ' • » 


0001 00 

VVV 1 w 


5250 

J C 


016164 


001020 

w w ■ VC w 




5251 

JC ■ 


016166 


004737 


021010 

VC ' V 1 V 


5252 

JC ^C 


016172 


017737 


163142 


5253 

J C J J 


016200 

V I oc vv 


1 04 1 1 0 




5254 

JC 








5255 








5256 


016202 


004737 


021436 


5257 








5258 

J C 


016206 


104016 




5259 


016210 


104413 




5260 


016212 

V 1 UC ( c 


004737 


021 504 

VC • ^v~ 


5261 


016216 


104026 

1 VC u 




5262 








5263 








5264 


016220 


005237 


001362 

W 1 JWb 


5265 


016224 


001405 




5266 

J w W W 


016226 


062702 


000040 

V/ V/ V/ V/ ~ V 


5267 

J c u > 


016232 

V ■ WC JC 


032702 

V JC ' VC 


017740 

V 1 • • ^V 


5268 


016236 

V ■ Ufc JW 


001334 

V V 1 J J~ 




5269 








5270 


016240 


032710 

V JC ' • w 


140000 

1 ~ WW 


5271 


016244 


001003 

V W 1 W J 




5272 


016246 

V 1 WC 


004 737 


021010 

Vb 1 V I V 


5273 


016252 


1 04 1 06 




5274 








5275 








5276 


016254 


10441 3 




5277 








5278 








5279 








5280 








5281 








5282 








5283 








5284 








5285 









9$: 



4S: 



5$: 



6S: 



JSR 

ERROR 
TST.SIN 



PC.TSTRWS 
16 



MOV R2.aRKDA 

nov #ii,aRO 

CHKCRDY 

ERROR 21 



BIT 
BNE 

JSR 

nov 

ERROR 



JSR 



«100.8RKER 
4S 

PC.GT2RG 

aRKDA,SREG2 

110 



PC.TSTRWS 



ERROR 16 
CNT. RESET 
JSR PCORESET 
ERROR 26 



INC 
BEQ 
ADO 
BIT 
BNE 

BIT 
BNE 
JSR 
ERROR 



COUNT 
5$ 

#40.R2 
#17740. R2 
3S 

#i40000,aR0 

6S 

PC.GT2RG 
106 



CNT. RESET 



IF THE 'CNTRL RDr' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERR( IF IT 

OCCURS GO BACK TO TEST 10 

GO CHECK i WAIT FOR R/W/S RDY 

TO SET. IF SET SKIP ERROR BELOW 

R/W/S ROr IS NOT SET 

CHECK IF SIN IS SET. IF SET 

DO DRIVE RESET TO CLR IT 

ADRES DRIVE. NXC CYLINDER 

SEEK, GO TO NXC CYL 

GO CHECK IF CONTROL RDY IS SET 

IF SO. SKIP THE EROR MESSAGE. 

SEEK WAS TRIED TO A NON EXISTENT 

CYLINDER, NXC SHOULD HAVE OCCURED 

SETTING CNTRL RDY. BUT CNTRL RDY 

DID NOT SET. 

DID NXC SET? 

YES, BRANCH 

60 GET RKCS, ER 

GET RKDA 

NXC DID NOT SET WHEN SEEK 

WAS TRIED TO CYLINDER AS INDICATED 

IN RKDA 

CHECK t WAIT FOR R/W/S RDY. 

IF SET SKIP ERROR 

R/W/S SHOULD BE SET 

GO DO CONTROL RESET 

GO DO DRIVE RESET 

NXC DID NOT SET AND DRIVE MAY 

HAVE TRIED TO DO A SEEK. AFTER 

WHICH R/W/S RDY DID NOT SET 

ALLOW ONLY 5 MESSAGES FOR 

ERROR 133 

ADRES THE NXT CYLdN NON-EXISTENT ZONE) 

CHKD FOR ALL NXC'S? 

IF NOT, LUP BAK t CHK THE NXT NXC 

DID HE t ERR BIT SET WHEN NXC BIT SET? 
YES. BRANCH 
GET RKCS. ER 

HE OR ERR BIT DID NOT SET IN RKCS 
WHEN NXC ERROR WAS SIMULATED 
CLEAR HE, ERR. NXC BITS 
GO. DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR( IF IT 
OCCURS GO BACK TO TEST 10 
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NACY11 
T45 







0047^7 


071 ^^6 




5287 










5288 


016262 


104102 






5289 










5290 


016264 


052710 


140000 

* "f wwww 




5291 


016270 


001405 

WW 1 ~ w ^ 






S292 


016?7? 


0100^7 

W 1 WW J • 


001 16? 

vw 1 I 




529^ 


016?76 


01 10^7 


001 164 

WW 1 1 W"t 






016502 


104102 

1 V"t 1 wC 






529S 

J C 7 J 










5296 










5297 










5298 










5299 










5300 










5501 










5502 










5303 

J J w J 










5504 


016504 


000004 






5305 


016506 


10441 5 






5306 










5307 










5308 










5309 










5310 










5311 










5312 










5313 










53U 










5315 


016510 


015700 


001552 




5316 


016514 


015777 


001550 


163016 


5317 


016522 


052777 


000014 

W W W W 1 ' 


163010 


5318 


016550 


012777 




162776 


5319 


016556 


012777 


055542 


162772 


5320 


016544 


012710 


000005 

w w w w w ^ 




5321 


016550 


104414 






5322 










5323 










532A 










5325 










5326 










5^27 










5328 


016552 


017702 


162752 




5329 


016556 


052702 


000040 

w w w w~ w 




5330 


016562 


001006 

WW • www 






5331 


016564 


004757 


021010 




5332 


016570 


012757 


000040 

w w w w ^» \ 


001 166 

WW* 1 w w 


5333 


016576 


104105 






533A 










5335 


016400 


042702 


000040 

w w w w ~ w 




5536 


016404 


001407 






5357 










5558 


016406 


012757 


000040 


001162 


5559 


016414 


017757 


162710 


001164 


55A0 


016422 


104107 






55A1 
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SEQ 0097 



7S: 



ERROR 

BIT 
BEQ 
NOV 

nov 

ERROR 



PCCHKECLR 
102 

#140000, aRO 
TST46 
RO.SREGO 
aRO.SREGl 

102 



CHECK IF 'NXC BIT WAS CLEARED BY 

CON. RESET. IF NOT, RETURN HERE. 

CNTRL RESET DID NOT CLEAR 

NXC BIT IN RKER. 

DID HE % ERR BITS GET CLEARED? 

;YES. EXIT 

GET ADRES OF RKCS 

GET RKCS CONTENTS 

CNTRL RESET DID NOT CLEAR 

HE OR ERR BIT IN RKCS 



:*TEST 46 SIMULATE ft CHECK NXS ERROR 

.••THIS TEST SIMULATES NON-EXISTENT SECTOR ERROR ft CHECKS THAT 
;tIT IS DETECTED BY NXS BIT OF RKER. IT IS CHECKED THAT 
:*UHEN NXS SETS HE ft ERR OF RKER ALSO SETS, AND ALL THREE 
:*CAN BE CLEARED BY CONTROL RESET. 



TST46: 



IS: 



SCOPE 
CNT. RESET 



nov 

HOV 
BIS 

nov 
nov 
nov 

CNT.RDY 



RKCS.RO 

DRIVAD.aRKDA 

#14,aRKDA 

#-l,aRKUC 

#OUTBUF.aRKBA 

#5, aRO 



nov 

BIT 
BNE 

JSR 

nov 

ERROR 

BIC 
BEQ 

nov 
nov 

ERROR 



aRKER,R2 
#40, R2 
IS 

PC.GT2RG 

#40,SREG2 

105 

#40, R2 
2S 

#40,SREG0 
aRKER.SREGI 

107 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET* ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY* DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRft IF IT 
OCCURS GO BACK TO TEST 10 

GET ADRES OF DRIVE 

SET BITS FOR SECTOR 12 (DECIMAL) 

READ 1 WORD 

INTO THIS BUS ADRES 

READ, GO (FROM NX SECTOR) 

THIS IS A CALL FOR "CN.RDV 

ROUTINE WHICH WAITS FOR CNT 

RDY TO SET. IF CNTRL RDY DOES 

NOT SET WITHIN 885 ns/ 11-20 

(176 MS FOR 11-45 WITH BIPOLAR) 

AN ERROR IS REPORTED 

NXS ERROR SHOULD OCCUR NOW 

DID NXS BIT SET IN RKER? 

YES, BRANCH 

GO GET RKCS. RKER 

THIS BIT (NXS) IN RKER DID NOT SET 

NXS BIT DID NOT SET ON SinULATING 

NXS ERROR 

MASK NXS BIT 

CHECK IF ANY OTHER 

RKER BIT SET 

GET EXPCTD RKER 

GET RKER RECVD 

ONLY 'NXS' SHOULD BE SET 

IN RKER, ANOTHER RKER BIT 
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021010 
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SEG 0098 



J J*tC 














u 1 0*«c*» 


ft5571 0 


5 J 


u 1 0*1 jU 


uu mu J 


J j*«0 


ni X7 

U 1 OH JC 


nOA 7T7 
UUh / Jf 


J J** r 


m 

u 1 Os jO 


IVH 1 UO 


J J*tO 












J JJ\J 


U 1 0<t*f u 


1 MHH \ J 


J JJ 1 






J JJC 






f^X^X 
J JJ J 






J J J** 






J J J J 






J J JO 






J JJ 1 






J J JO 






J jjy 






J JDU 


m AAA? 


00A7^7 


J jO I 






J JOC 


V 1 0*f *f 0 


10410? 


^Xf\X 

J JOJ 






J jOm 


U 1 0*t Jv 


00^7^7 


J jO J 






J jOO 


V 1 OH jH 


10^107 


^Xf\7 

J jO 1 






J jOO 






J jO T 






J J r U 






J J » 1 






J J r C 






J J t J 






J J ft 






J jf J 






S^7A 

J J r U 






S^77 

J Jf f 






J J r O 


V/ 1 OH JO 


000004 


J J f 7 


w 1 OH 01/ 


01 ^700 


J JOw 


01 A4A4 

\J 1 OMOM 


10441 ^ 

1 V/H H 1 J 


J jO I 






J JOC 






J jO J 






S^R4 






J JO J 






J JOU 






^^R7 

J jO f 






^^RR 

J JOO 






J JOT 






S^90 


01 A4A6 


1044?1 








5392 


016470 


012701 


5393 


016474 


012702 


5394 


016500 


012703 


5395 






5396 






5397 


016504 


062703 



2S: 



CUP 
BEQ 

JSR 
ERROR 



«140204.aR0 
5S 

PC.GT2RG 
106 



3S: 



CNT. RESET 



021356 



021402 



4S: 



JSR 
ERROR 
JSR 
ERROR 



PC.CHKECLR 
102 

PC.CHKCCLR 
102 



WAS SET. (NOTE 'NXS' WAS 
SIMULATED) 

DID HE I ERR BITS SET? 

YES, BRANCH 

GO GET RKCS, RKER 

HE OR ERR BIT DID NOT SET WHEN 

NXS ERROR OCCURED 

CLEAR NXS, HE, ERR BITS 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERRK IF IT 

OCCURS GO BACK TO TEST 10 

CHECK IF 'NXS' BIT WAS CLEARED BY 

CON. RESET. IF NOT, RETUEN HERE. 

CNTRL RESET DID NOT CLEAR 

NXS BIT IN RKER 

CHECL IF 'HE' t 'ERR' BITS WERE CLEARED 
BY CON. RESET. IF NOT, RETURN HERE. 
RKCS BITS ERR OR HE WERE NOT 
CLEARED BY CNTRL RESET 



***************************************************************** 

[ West 47 simulate i check wce 

;*THIS TEST SIMULATES A WRITE CHECK ERROR AND CHECKS THAT IT 
;*IS DETECTED BY WCE BIT OF RKER. FOR COMPARISON IT USES 
:*THE 256 WORDS DATA BLOCK WRITTEN ON SECTOR 0, CYLINDER 0 
:*IN A PREVIOUS TEST. THIS BLOCK IS COMPARED WITH THE 256 WORDS 
:*NEMORY BUFFER STARTING AT 'OUTBUF*. WCE IS SIMULATED BY 
:*DROPPING A BIT FROM ONE OF THE WORDS IN THE MEMORY BUFFER. 



001332 



TST47: 



SCOPE 

MOV RKCS,RO 
CNT. RESET 



033342 
177400 

Mun 



TST.SIN 

MOV #0UTBUF.R1 
MOV #-400, R2 
MOV #177777. R3 



1S: 



ADO 



#177401. R3 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL ROY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR* IF IT 
OCCURS GO BACK TO TEST 10 
CHECK ir SIN IS SET. IF 
SET DO ORV-RESET TO CLR IT 
THIS CODE SETS UP A MEMORY 
BUFFER OF 256 WORDS STARTING 
AT OUTBUF 

FIRST WORD 177400 
SECOND 177001 
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CZRKKF.P11 21-FEB-78 08:51 TA7 SIMULATE t CHECK WCE 



SEQ 0099 



J J TO 


U 1 0 J 1 U 


010731 








OOS303 
UU3cUc 




JMUw 


m A^1A 


001 777 














U 1 03 1 0 


013777 


1 70007 

1 lyjyjyji 




















\J 1 O jct 


01 3777 


1 77^00 




U 1 03 Jc 


01 3777 


0777^3 
U 3 J J*tc 


jH\J f 


\) 1 03Mw 


01 7777 


001 7S0 

\J\J 1 j3U 




01 A^4A 


013710 


000007 










1 U 


ni ASS? 


1 0^41 3 




S^l 1 








1 C 


w 1 03 3M 


in40AS 














ni ASSA 


03?777 

U jc III 


000001 




ni ASA4 


001 OOA 

Uw 1 wUO 






ni ASAA 


004737 

wwH 1 J 1 


031 01 0 


S^l 7 


01 AS7P 


01 3737 

\J \ C 1 Jl 


000001 

UwUww 1 


1 o 


01 AAOO 

w 1 wwww 


10410S 




JH 1 T 










01 AA07 


0??71 0 


1 0070A 

1 Uwc WW 




01 AAOA 


001 403 

\J\J I 






01 AA10 

V 1 WW 1 V 


004737 


0P1010 




01 AA14 

U 1 WW 1 " 


1 04 1 0A 

1 w*f 1 wO 














01 AA1 A 

V 1 WW I w 


1 0441 3 






01 AA70 

w 1 Owe w 


004737 

\J\JH 1 J 1 


031 3SA 


S4P7 








CO 


01 AA?4 

w 1 owe " 
















01 AA?A 

w 1 OOC O 


004737 


0?1 40P 


^ "* J 1 










01 AA37 

\J 1 OO JC 


10^10? 




















































S4^9 
















































S445 








5AA6 








5447 




000004 

w W WW"* 




5448 


016636 


104413 




5449 








5450 








5451 








5452 








5453 









033360 



162602 
162576 
162572 



162544 
001166 



3S: 



4S: 



5S: 



6S; 



MOW 

nU V 


R3.(R1)* 


LAST WORD 000377 


I ur 

1 NV. 


R2 


HAVE U GENERATED ALL 256 WORDS? 


DNC 

• 


1» 


IF NOT, LUP BAK I GENERATE NXT 


nu V 


#170007. 0UTBUF*16 ;WCE WILL B SIMULATED Br DROPPING 






oil IN Inc CluHIH WUKD WHICH J5 






CIIPDnCCn TD B 17Z007 


MOW 

nu V 




uDT rur zoo unonc 


MOV 




CTADTIkIR AT TUIC QIIC AfSDCC 


MOV 

nu V 




uiTU TUIC nicir ahdcc ccr o rvi o 


MOW 

nu V 


A7 apo 


UDT ruir f:0 
■ n 1 I. Ik , uU 


L n K ^ n V 1 




ruprir ir rniuTDni pnv ic cct 

UU UnCLN ir UUni 1 ftUL nUT id jC I 






t( Cn CrIP TUF COnD MECCAr.E 


FRROR 

c n n un 


AS 

OP , 


ruTBi Bnv nin luni cft 






AFTFB UBT TUIT 


O 1 1 


ti aRrFR 


nin urF rit cft? 

I/IU WLC oil 9CI. 


RNF 


4S 




J On 


PC.GT2RG 


c,t\ rft Birrs BirFB 


MOW 


#1 ,SREG2 


TUIS li I T fUTF) nin UDT St- T 

1 n 1 Oil ivLC/ v Xv nu 1 dc i 


FRROR 


105 


urF nin mot sft om siMiiiATiMf; 

W^C I/IW rlUi del UH dinULnl JnU 






UTF rouniTioMS 


CMP 


#100206, aRO 


■ IS RrrS rORRFTT'' 


BEQ 


5S 


•VFS RBAMTU 


JSR 


PC.GT2RG 


'GO. GET RKCS. RKER 


ERROR 


106 


-HE OR ERR BIT DID NOT SET WHEN 






;WCE WAS SIMULATED 


CNT. RESET 


•CNTRL RESET 


JSR 


PC.CHKECLR 


;WAS 'WCE' BIT CLEARED? 






;IF NOT, RETURN HERE. 


ERROR 


102 


;CNTRL RESET DID NOT CLEAR 






;WCE BIT IN RKER 


JSR 


PC.CHKCCLR 


.-CHECK IF 'ERR* BIT WAS CLEARED. IF 






;NOT RETURN HERc. 


ERROR 


102 


•CNTRL RESET DID NOT CLEAR 



RKCS 

;^TEST 50 CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR 

;*THIS TEST CHECKS THAT WHEN 'STOP ON SOFT ERROR' BIT IS SET IN 
:*RKCS AND A SOFT ERROR IS ENCOUNTERED ALL CONTROL ACTION WILL 
.-•STOP AT THE END OF THE CURRENT SECTOR I' IDE BIT IS CLEAR. 
;*SOFT ERROR IS SIMULATED BY A WCE AS IN THE PREVIOUS 
;*TEST. THE PREVIOUS TEST % THE TEST WHICH WRITES DATA 
;*BLOCK ON CYLINDER 0, SECTOR 0, SHOULD BE DONE PRIOR 
.-•TO THIS TEST. A TWO SECTOR 'WRT CHK' WILL BE DONE. 
;*CONTROL ACTION SHOULD STOP AFTER THE FIRST SECTOR DURING 
;*WHICH A SOFT ERROR IS SIMULATED. 



TST50: 



SCOPE 
CNT. RESET 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET* ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
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JH JO 










JH J f 










JH JO 


U 1 00<tU 


I Uhhc I 


















ni AA4? 


01 3700 


001 33? 




yHO 1 


ni AA46 


01?737 


1 70007 


033360 


































w 1 OO J** 


01 3701 


001 350 




JHOO 


U 1 ooou 


01 ?777 


1 77000 








01?777 


03334? 


16?44? 




\J 1 OO 1 •* 


0101 77 


1 6?440 






U 1 O r V/W 


01?710 


000407 




S470 


ni A7n4 


10441? 






5471 












016706 


104065 






S47^ 




















S47S 












016710 


0??777 


000001 


16?41? 


5477 










S47ft 


016716 


001407 






J*» r T 




niP757 

V/ 1 c r J r 


000001 


001 1 6? 




v 1 O r CO 


01 7757 


1 6?376 


001 1 64 


5481 




104107 






548? 










5483 










5484 










S485 


016736 

W 1 O ' JO 


005?01 






5486 


016740 


0?0177 

VCV Iff 


16?374 




5487 










5488 










S489 


016744 


001406 

W 1 ^wo 






5490 


016746 


010137 


001 16? 




5491 


01675? 


01 7737 


16?36? 


001 164 


549? 


016760 

w 1 O ' ov 


104070 






5493 










5494 










5495 




















5497 










5498 










5499 










5500 










5501 










550? 










5503 










5504 










5505 










5506 










5507 










5508 










5509 
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T50 CHECK THAT SSE STOPS ALL CONTROL ACTION ON SOFT ERROR 

THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET* IS LOCATED. 
THIS IS A VER'' BASIC EKRt IF IT 
OCCURS GO BACK TO TEST 10 
CHECK IF SIN IS SET. IF 
SET DO DRIVE RESET TO CLR IT 



SEO 0100 



2t: 



3S: 



TST.SIN 
NOV 

nov 



RKCS.RO 
#1 70007. OUTBUF 



MOV 

nov 

MOV 
NOV 

nov 

CHKCRDY 



DRIVAD.Rl 
f-lOOO.iRKUC 
f OUTBUF .aRKBA 
Rl.iRKDA 
#407. aRO 



ERROR 65 



CHP 

BEQ 
MOV 
MOV 
ERROR 



INC 
CMP 



BEQ 
MOV 
NOV 
ERROR 



#l,aRKER 
3S 

fl.SREGO 
aRKER.SREGl 

107 



R1 

Rl.aRKDA 



TST51 
R1 .SRE60 
aRKDA.SREGl 
70 



*16 :WCE IS SIMULATED Bi DROPPING A BIT 
IN THE EI6TH WORD (WHICH IS ACTUALLY 
174007). NOTE THAT 256 WORD NENORY 
BUFFER IS CREATED IN THE PREVIOUS TEST, 

WRT CHK 1000 (OCTAL) WORDS. 2 SECTORS 
FROM THIS BUS ADRES 
WITH THIS DISK ADRES. SEC 0. CVL 0 
WRT CHK. GO. SSE 
GO CHECK IF CONTROL RDY IS SET 
IF SO, SKIP THE EROR MESSAGE. 
CNTRL RDY DID NOT SET AFTER WRT 
CHK. A SOFT ERROR (WCE) IN 
SECTOR 0 SHOULD HAVE STOPPED 
ALL CONTROL ACTION. 
CHECK ONLY 'WCE' BIT SHOULD 
BE SET? 
YES. BRANCH 
GET EXPCTD RKER 
GET RKER RECVD 
ONLY BIT 'WCE' OF RKER 
SHOULD BE SET (WCE WAS 
SIMULATED ABOVE). ERROR 
IF IT'S NOT 

CHECK THAT RKDA INCREMENTED BY 
1 SECTOR ONLY IMPLYING THAT 
CNTRL ACTION DID STOP AFTER 
SOFT ERROR IN SECTOR 0 
:YES. EXIT 
GET EXPCTD RKDA 
GET RKDA RECVD 
RKDA SHOULD HAVE INCRMNTD 
BY 1 SECTOR ONLY. IT DIDN'T. 
WCE WAS SIMULATED IN THE 
FIRST SECTOR t A WRT CHK 
OF 2 SECTORS WAS ISSUED. 
CONTROLLER SHOULD STOP AFTER 
DETECTING WCE IN THE FIRST 
SECTOR. HENCE RKDA SHOULD 
INCREMENT BY 1 SECTOR ONLY 



.■•TEST 51 CHECK THAT RXll INTERRUPTS ON SOFT ERROR WHEN SSE t IDE ARE SET 

;*THIS TEST CHECKS WHEN SSE BIT IS SET WITH IDE SET AND A SOFT 
:*ERROR OCCURS. THEN ALL CONTROL ACTION WILL STOP AND A BUS 
.••UEQUEST (INTERRUPT) WILL OCCUR AT THE END OF THE CURRFNT 
.-•SECTOR. SOFT ERROR IS SIMULATED BY WCE AS IN PREVIOUS 
.-•TEST. PREREQUISITES FOR THIS TEST ARE THE^ SAME AS THOSE 
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J J t \J 










SS1 1 










SSI? 










SSI ^ 


0167^4 

V 1 W f U"t 


10441 3 






SS14 










SSI s 










SS16 










5517 










5518 










S519 










5520 










5521 










5522 










5523 


016766 


104421 






5524 










5525 


016770 


012737 


1 70007 


033360 


5526 










5527 










5528 










5529 










5530 


016776 


013701 


001350 




5531 


017002 


012777 


177000 


162324 


5532 


017010 


012777 


033342 


162320 


5533 


017016 


010177 


162316 




5534 


01 7022 


01 3700 


001402 




5535 

J J J J 


01 7026 


012720 


01 7060 

V 1 V www 




5536 


017032 


012710 


000340 




5537 

J J J 1 


017036 


012777 


000507 

www ^ w ■ 


162266 


5538 


01 7044 


104420 


177777 




5539 










55A0 










5541 


017050 


004737 


021010 




5542 


017054 


104111 






5543 










5544 


017056 


000417 






5545 










5546 


017060 

V I • WW w 


022626 






5547 


01 7062 


022626 






5548 


017064 


012777 


004600 

w w^ w w w 


162310 


5549 










5550 


017072 


005201 






5551 


017074 


020177 


162240 




5552 










5553 

J J J J 










5554 


017100 


001406 

W W I ~ WW 






5555 


017102 


010137 


001162 




5556 


017106 


017737 


162226 


001164 


5557 


017114 


104003 






5558 










5559 










5560 










5561 


017116 








5562 


017116 


012746 


000340 




5563 


017122 


012746 


017130 




5564 


017126 


000002 






5565 


017130 
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T51 CHECK THAT RKll INTERRUPTS ON SOFT ERROR WHEN SSE t IDE ARE SET 
.••FOR THE PREVIOUS TEST. 



SEQ 0101 



TST51 



SCOPE 
CNT. RESET 



1$; 



2$: 



64S: 



TST.SIN 

HOV #170007.0UTBUF*1 



nOV DRIVAD.RI 

nOV #-1000.8RKUC 

nOV #0UTBUF ,aRKBA 

NOV R1.8RKDA 

NOV RKVEC.RO 

NOV «1t,(R0)« 

NOV f340.aR0 

NOV #507.8RKCS 
WAT. INT, 177777 



JSR PC,GT2RG 

ERROR 111 

BR 2t 

CMP (SP)*.(SP)* 

CNP (SP)*.(SP)+ 

NOV fSADINT.aRKVEC 

INC Rl 

CNP R1,8RKDA 



BEQ 2S 

NOV R1.SREG0 

NOV aRKDA.SREGI 

ERROR 3 



NOV #340. -(SP) 
NOV #64S,-(SP) 
RTI 



GO, DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TINE 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR MESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERR& IF IT 
OCCURS 60 BACK TO TEST 10 
CHECK IF SIN IS SET, IF 
SET DO DRIVE RESET TO CLR IT 

:WCE IS SIMULATED BY DROPPING A BiT 
IN THE EIGHTH WORD (WHICH IS 174007) 
NOTE THAT THE 256 WORD NENORY 
BUFFER (STARTING AT OUTBUF) IS 
CREATED IN A PREVIOUS TEST. 

WRT CHK 1000 (OCTAL) WORDS, 2 SECTORS 

FROM THIS BUS ADRES 

WITH THIS DISK ADRES, SEC 0. CYL 0 

SET UP INTERRUPT VECTOR FOR RK11 
SET PSW ON INTERRUPT 
WRT CHK. GO. SSE, IDE SET 
WAIT FOR INTERRUPT FROM RK11 
TIME=485 MS FOR 11/20, 
97 MS FOR 11/45 
; 11/05 

RK11 DID NOT INTERRUPT AFTER A SOFT 
ERROR (SIMULATED) IN SECTOR 0 



RESTORE STACK POINTER (FROM RKll INTRUPT) 
POP STACK (FROM WAT. INT) 
RESTORE RKll INTERRUPT VECTOR 
ADRES FOR UNEXPECTED INTERRUPTS 

CHECK THAT RKOA INCREMENTED 

BY ONLY 1 SECTOR BEFORE INTERRUPT 

OCCURRED 

GET EXPCTD RKDA 
GET RKDA RECVD 

RKDA SHOULD HAVE INCREMENTED BY 
1 SECTOR ONLY, IF ALL CNTRL ACTION 
HAD STOPPED AFTER SOFT ERROR 
(SIMULATED) IN SECTOR 0. IT DID NOT. 
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T51 CHECK THAT RKII INTERRUPTS ON SOFT ERROR WHEN SSE I IDE ARE SET 



SEO 0102 



5566 

5567 

5568 

5569 

5570 

5571 

5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

5582 

5583 

558A 

5585 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

5594 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 

5607 

5608 

5609 

5610 

5611 

5612 

5613 

56U 

5615 

5616 

5617 

5618 

5619 

5620 

5621 



017130 005077 162176 



CLR 



8RICCS 



.-CLEAR THE IDE BIT 



017134 
017156 
017142 
017146 
017150 

017156 
017162 
017166 
017170 



017172 
017174 
017202 
017210 



017224 
017226 
017230 
017234 
017240 
017242 
017246 
017250 
017252 
017256 
017262 



000004 
013700 
012701 
005002 
012737 

104417 
004737 
104016 
104413 



010210 
012777 
013777 
012777 



104065 
010205 
062705 
042705 
011004 
042704 
020504 
001405 
010537 
010437 
104112 



.••TEST 52 



CHECK THE MEX BITS IN RKCS 



001332 
177774 

017156 001110 

000142 
021436 



TST52: 



IS: 



mill 

001350 

milt 



162132 
162130 
162120 



017216 052710 000007 



017222 104412 



000020 
000100 

177717 



001162 
001164 



3S: 



.••THIS TEST CHECKS OUT THE EXTENDED HEHORV BITS Of THE RKCS. 
.••THE RKBA IS SET TO 177776 AND A ONE WORD WRITE CHECK IS TRIED. 
.••THIS COULD GIVE RISE TO NXH ERROR, BUT EVEN THEN THE RKBA 
.••SHOULD OVERFLOW INTO THE HEX BITS. SIHILIARLV IT IS CHECKED 
.••THAT THE OVERFLOWING BIT CAN HAKE THE HEX BITS COUNT 
.••01,10.11.00. 



SCOPE 

nov 
nov 

CLR 

nov 



RKCS.RO 
#-4.R1 

R2 

#1$,$LPFRR 



DELAY ,142 
JSR PC.TSTRWS 
ERROR 16 
CNT. RESET 



nov R2,aR0 

nov f-1,8RKWC 

nov DRIVAD.aRKOA 

nov #177776.8RKBA 

BIS f7,aR0 



CHKCRDY 
ERROR 

nov 

ADD 

8IC 

nov 

SIC 

cnp 

BEQ 

nov 
nov 

ERROR 



65 

R2,R5 

#20. R5 

#100, R5 

aR0,R4 

#1 77717. R4 

R5,R4 

4S 

R5,SREG0 
R4,SREG1 
112 



SET UP THE COUNT 

INITIALIZE nEX BITS TO B SET IN RKCS 

SET RETURN ADRES FOR 

LUPING ON EROR (SW9} 

TinE DELAY 

WAIT FOR R/W/S RDY 

R/W/S RDY IS NOT SET 

GO, DO CONTROL RESET 

THIS IS A CALL FOR THE 'CNTPL- 

RESET' ROUTINE. A CONTROL RESET IS 

ISSUED AND AFTER A CERTAIN TIHE 

IF THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR HESSAGE IS THE 

PC WHERE 'CNT. RESET' IS LOCATED. 

THIS IS A VERY BASIC ERRS IF IT 

OCCURS GO BACK TO TEST 10 

SET nEX BITS (AS IN R2) IN RKCS 

WRT CHK 1 WORD 

THIS DISK ^ORES, SEC 0. CYL 0 
THIS BUS Al\'=S. NOTE THIS BA 
IN CONJUCTIOn WITH nEX BITS OF RKCS 
WRT CHK, GO 

THERE nAY BE A NXn OR WCE BUT 
WHATEVER THE CASE RKBA SHOULD 
OVERFLOW nAKING THE nEX BITS COUNT 
GO CHECK IF CONTROL RDY IS SET 
IF SO, SKIP THE EROR nESSAGE. 
CNTRl RDY DID NOT SET AFTER WRT CHK 

nEX BITS SHOULD INCREnENT BY 1 TO THIS 
nASK OUT IDE BIT POSITION. IF SET 
GET RKCS 

nASK OUT ALL BITS EXCEPT nEX 

DID HEX BITS INCREnENT CORRECTLY? 

YES, BRANCH 

GET EXPCTD nEX BITS 

GET HEX BITS RECVD 

nEX BITS DID NOT INCREnENT AS 

'EXPCTD' WHEN RKBA OVERFLOWED. 

NOTE THAT BIT POSITION 4(5 

REFLECT HEX BITS 0 & 1 IN THE 
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SEQ 0103 



5622 

5623 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 



017264 
017270 
017272 
017276 
017300 
017304 
017310 
017316 



017320 
017324 
017326 



017330 
017332 



017340 
017346 
017352 

017360 
017362 
017364 
017372 
017376 
017402 
01 7404 
017404 
017410 



017703 
010305 
042703 
001410 
042705 
010537 
017737 
104107 



062702 
005201 
001313 



000004 
012737 



012737 
005737 
012737 

000520 
022626 
012737 
012746 
012746 
000002 

013700 
104413 



162040 

003001 

177776 
001162 

162014 001164 



000020 



4S: 



5S: 



nov 

NOV 
BIC 
BEQ 
BIC 
NOV 
NOV 
ERROR 



ADD 
INC 
BNE 



aRKER,R3 
R3.R5 
«3001.R3 
5S 

#177776. R5 

R5,SREG0 

BRKER.SREGl 

107 



#20, R2 

R1 

IS 



;ERR0R NESSAGE. 
;GET RKER 

NASK WCE.DLT.NXN BIT, IF SET 

BRANCH IF REST OF RKER CLR 

NASK NON-UCE BITS 

THIS IS THE EXPCTD RKER 

GET RKER RECVD 

ERROR IN RKER. IT SHOULD 

BE AS EXPECTED IN 

ERROR NESSAGE 

INCRENENT TO NXT NEX BIT 

HAVE U CHKD THE NEX BITS 4 TINES? 

IF NOT, LUP BACK 



;»TEST 53 TRANSFER FRON DISK TO TTY 

;* THIS TEST CHECKS THE HIGH ORDER BITS OF THE ADDRESS 
LINES. FIRST A ONE WORD (100) IS WRITTEN ON SECTOR. 

:* 2. CYL 0. THEN IT IS READ BACK. BUT THE NPR IS DONE 
NOT TO THE NENQRY. BUI THE TELETYPE BUFFER (TKS 177560) 
AND IT CHECKED THAT THE WORD WAS RECIEVED CORRECTLY. 

:*IF IT IS NOT. AN ERROR IS REPORTED. THIS TEST IS 

:*SKIPPED ON AN 11/05. 



000001 001206 



TST53: 



SCOPE 
NOV 



fl.STINES 



017362 000004 
177700 

004534 000004 



004534 000004 

000340 

017404 



001332 



5f: 



64$: 



NOV 
TST 
NOV 

BR 
CNP 
NOV 
NOV 

NOV 

RTI 



#5t.a«4 

if 177700 
«BADTN0.a#4 

TST54 

(SP)*,(SP)+ 
#BADTH0.a«4 
#340. -(SP) 
#64S.-(SP) 



;D0 1 ITERATION 

THIS CODE FINDS OUT IF THE CPU 

IS AN 11/05 OR ELSE. 

ON AN 11/05. RO (177700) CAN BE 

ADDRESSED AS A NEMORY LOCATION. BUT 

ON ANY OTHER CPU IF 177700 IS REFERENCED 

A TINE OUT WILL OCCUR. 

SET UP TINE OUT VECTOR 

REFERENCE RO 

RO WAS REFERENCED W/0 TINEOUT 
HENCE 11/05 
.-SKIP THIS TEST 
RESTORE STACK POINTER 
RESTORE TINEOUT VECTOR 



NOV RKCS.RO 
CNT. RESET 



017412 012701 033342 



NOV 



#0UTBUF.R1 



GO. DO CONTROL RESET 
THIS IS A CALL FOR THE 'CNTRL- 
RESET' ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TINE 
IF THE 'CNTRL RDY' DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
THE PC IN ERROR NESSAGE IS THE 
PC WHERE 'CNT. RESET' IS LOCATED. 
THIS IS A VERY BASIC ERRt IF IT 
OCCURS GO BACK TO TEST 10 



nD-11-CZRKKF. RK11 BASIC LOGIC TEST 2 
CZRKKF.Pll 21-FEB-78 08:51 



161700 



N 8 

HACYII 30A(1052) 21-FEB-78 08:58 
T53 TRANSFER FROM DISK TO TTY 



PAGE 105 



SEQ 0104 



5678 


017416 


013704 


A A 4 T V ^ 

001336 


5679 


017422 


012711 


AAA4 AA 

000100 


5680 


017426 


012777 


4 ^ 7 


5681 


017434 


A 4 T 7 A 

013702 


A A 4 T C A 

001 350 


5682 


A 4 ^ / / A 

017440 


A C '^7 A*^ 

052702 


A AA AA ^ 

000002 


5683 


017444 


A 4 A^ 77 

010277 


4^4^ 7A 

161670 


568A 


A 4 ^ ^ PA 

017450 


010114 




5685 


A 4 7 y r ^ 

017452 


A4 *)7i A 

012710 


AAAAAT 

000003 


5686 


A 4 7 / e £ 

017456 


A A C A A T 

005003 




5687 


A 4 7 / £ t\ 

017460 


4 A r 7 4 A 

105710 




c ^ a a 

5688 


A4 7y £. ^ 

01 7462 


4 AA/ 4 A 

100410 




5689 


A 4 7 y £ t 

017464 


A A f A7 

005203 




5690 


A 4 7 / £ £. 

01 7466 


A A 4 7 7/ 

001374 




5691 


A 4 7 / 7 A 

01 7470 


AA/ 777 

004737 


A'^/\ 77/ 

020774 


5692 


017474 


A4 A*^ V 7 

010237 


AA4 ^A^ 

001202 


5693 


A 4 7CAA 

017500 


4 AJ i 4 ^ 

104416 




569A 


A4 7CA^ 

017502 


4 A/ AVI 

104031 




5695 








5696 


A4 7r A/ 

017504 


A4 777 

012777 


4 777 77 

1 777 (f 


5697 


A 4 7^4 

017512 


A 1 A^ 77 

010277 


161622 


c ^ na 

5698 


A4 7C i Z 

01 7516 


A4 T 71 / 

01 3714 


AAi i / / 

001 144 


5699 


A1 7C 

01 7522 


AAC A77 

005077 


1 ^ i / 1 ^ 
161416 


5700 








5701 


A 4 7C 

017526 


AI ^74 A 

012710 


A A AAX. C 

000065 


5702 


A 4 7r 7 ^ 

017532 


AAC AA7 

005003 




5703 


A 4 7 C 7 y 

017534 


4 A C 7 4 A 

105710 




570A 


A4 7C 7/. 

01 7536 


4 AA/ i A 

100410 




C ^ A C 

5705 


A4 7C / A 

017540 


AAC ^ AT 

005203 




5706 


A1 7C y ^ 

01 75h2 


AA1 77/ 

001 jr 4 




C ^A7 

5707 


A 4 7C / 1 

01 7544 


AA/ 7T7 

004 r3r 


A^A7 7/ 
020f (h 


5708 


Ai 7C C A 

01 r 550 


Ai A'5T7 

01023f 


AAI OAO 

001202 


5709 


A4 7C C / 

01 7554 


1 A/ / 1 A 

104^16 




5710 


A 4 7C CZ. 

017556 


i Ay A/ c 
104045 




5711 








C T4 ^ 

5712 








5713 








5714 








5715 


A4 7C Z A 

01 7560 


AT 1 7T 7 

032737 


A A A 1 AA 

000100 


5716 








C 74 7 

5717 


A 4 7CZ Z 

017566 


AA4 A4 C 

00101 5 




C 74 A 

5718 


Ai 7C7A 

01 7570 


Ai 77AC 
01 ' f 05 


i Z.i VCA 

161350 


C 74 O 


AI 7C 7 / 

01 7574 


Ai AC T7 

01053r 


AAi i L.i 

001 1 64 


C7^ A 

5720 


A4 7^AA 

01 7600 


052705 


AAAi AA 
0001 00 


C 7^ 1 

5721 


01 r604 


Ai ACT7 


UUl 16c 


C 7^ ^ 

5722 


01 7610 


A 1 i / T 7 


AAi i 

001 1 66 


5723 


01 f 6 14 


Ai i nT7 


AAI 1 7A 

001 1 f 0 


5724 


A1 7^^A 

01 ro20 


i A/ 1 i C 
1041 1 3 




5725 








5726 








57Zr 








5 f to 








5729 








C 7T A 

5730 








5731 








5732 








5733 









IS: 



161622 2$: 



3$: 



001144 4$: 



nov 
nov 

MOV 

nov 

BIS 

nov 
nov 
nov 

CLR 
TSTB 

Bni 

INC 
BNE 

JSR 

nov 

BRKDA4 
ERROR 

MOV 
MOV 
MOV 
CLR 

MOV 

CLR 

TSTB 

BMI 

INC 

BNE 

JSR 

MOV 

BRKDA4 
ERROR 



BIT. 
BNE 

nov 

MOV 
BIS 
NOV 
MOV 
MOV 
ERROR 



RKBA,R4 

#100, SRI 

#-1,8RKUC 

0RIVAD,R2 

#2.R2 

R2,aRKDA 

Rl.aR4 

#3,aR0 

R3 

aRO 

2S 
R3 
IS 

PC.GT4RG 
R2,SREG10 

31 

#-1 .aRKUC 
R2,aRKDA 
STKS,aR4 
aSTKS 

#65. aRO 
R3 . 

aRO 

4S 
R3 
3S 

PC.GT4R6 
R2.SREG10 

45 



#100.STICS 

TST54 

aSTICS,R5 

R5,SREG1 

#100. R5 

R5.SREG0 

aR4.SREG2 

aR0.SREG3 

115 



:URITE THIS WORD 
.-WRITE 1 WORD 

:0N CYL 0. SEC 2 

:FR0n THIS MEMORY LOC 
.-WRITE. GO 



GET RKCS. ER. DS 

GET THE STARTING AORES 

BREAK IT INTO DRV #. CYL. SUR. SEC # 

CNTRL ROY DID NOT SET AFTER 

WRITE OF 1 WORD ON CYL 0. SEC 2 

READ 1 WORD 

FROM SEC 2. CYL 0 

INTO TTY STAUS REGISTER 

CLEAR TTY KEY BRD STATUS REG 

READ. MEX BITS SET 



GET THE STARTING ADRES 

BREAK IT INTO DR#, CYL. SUR. SEC# 

CNTRL ROY DIDN'T SET AFTER 

READ OF 1 WORD FROM CYL 0. SEC 2. 

IN EROR nSGE. <DSK-ADRES> GIVES 

ADRES WHERE READ BEGAN. 'RKDA' 

GIVES CONTENTS OF RKDA AT TIHE OF EROR 

WAS THE CORRECT WORD READ INTO 

THE TTY STATUS REGISTER? 

;YES. EXIT 

;GET THE WORD RECVD FROn DISK 

THIS WORD WAS EXPCTD 
STORE EXPCTD WORD 
GET RKBA 
-GET RKCS 

DATA ERROR. A ONE WORD (100) 
NPR WAS TRIED F))0M DISK TO 
TTY KEYBOARD STATUS REGISTER 
(17756) . BIT 6 SHOULD HAVE BEEN 
SET AS RESULT OF THIS 
BUT IT WAS NOT 



•West 54 check that rkba cai) count correctly 
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r ^ V J 

573A 








5735 








5736 








5737 








5738 








5739 








5740 








5741 








5742 


017622 


A A A A A / 

000004 




5743 


01 7624 


A 4 ^ ^ V ^ 

012737 


A A A A A C 

000005 


5744 


017632 


4 A / / "^4 

104421 




5745 


A4 7^ V / 

01 7634 


A A f A A 4 

005001 




5746 


017636 


A 4 ^ 7 A ^ 

012702 


A A A A A ^ 

000002 


5747 








5748 


017642 


A 4 "^^9 7 

012737 


A 4 7^ f / 

017654 


5749 








5750 








5751 


A 1 C A 

01 7650 


AI T7AC 

01 5705 


AA 1 7 *> 

001336 


5752 


017654 


A A / 7 Y 7 

004737 


A ^ 4 / 7 Z 

021436 


5753 


01 7660 


i A/ Ai ^ 

104016 




5754 


01 766k. 


i A/ / 1 7 

10441 3 




5755 


017664 


012777 


4 77777 

1 77777 


5756 


A4 7^ 

01 7672 


AI AI 1 C 

010115 




5757 


A 4 7^7/ 

01 7674 


A4 7 777 

013777 


A A 4 7 C A 

001350 


5758 


01 7702 


Ai "^777 

012777 


A A AA^ 7 

000067 


5759 


017710 


104412 




5760 








5761 


01/12 


1 A/ AZ C 

104065 




5762 








5763 








576A 








5765 


01 7714 


005237 


AAI YC^ 

001356 


5766 


AI 77^A 

01 7720 


AAi / 1 7 

00141 7 




5767 








5768 


017722 


A^A^ 1 C 

02021 5 




5769 








5770 


A 1 77 

01 f 724 


AA 4 y i A 
OOlHlO 




5771 


A1 771^ 

01 7726 


A 4 A4 T7 

0101 37 


AA 4 4 X ^ 

001 162 


5772 


A1 77^ O 

01 7732 


A 1 1 C 7 7 

01 1 537 


AAI 1 ^/ 

001 164 


C77» 

5773 


01 7736 


1 A/ AI 7 

10401 7 




5774 








5775 








5776 
















C 770 

5778 








5779 








5780 








C701 

5781 


A1 77/ A 
01 7/40 


005237 


AAI T^A 

001 3oO 


C 70 O 

5 f 82 


AI 77/ / 

01 f f 44 


AAI / AC 

001405 




5 f 83 


AI 77/ A 

0 1 7/ SO 


A^A'5A1 

06u«:0 1 






m 77<n 


ni ni n5 




5785 


017752 


062702 


000002 


5786 


017756 


001336 




5787 








5788 


017760 






5789 









TST54 



IS: 



3$: 



4t: 



5$: 
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CHECK THAT RKBA CAN COUNT CORRECTLY 

.••THIS TEST CHECKS THAT RKBA CAN COUNT CORRECTLY. IT IS SET 
:*T0 THE DESIRED INITIAL VALUE. THEN A ONE WORD WRITE CHECK 
:*IS TRIED. WITH HEX (HEHORY EXTENSION) BITS SET. IF THERE IS 
:*N0 HEnORY PRESENT (FOR CERTAIN BUS ADDRESSES). THERE 
:*UILL BE AN NXn ERROR STOPPING CONTROLLER ACTION. BUT RKBA 
.■•SHOULD HAVE INCREMENTED BY 1 FROM ITS INITIAL VALUE. IF IT 
.'•HAS NOT. AN ERROR IS REPORTED. 



SEQ 0105 



SCOPE 

nov f5.sTinEs 

TST.SIN 
CLR R1 
nov #2.R2 



nov 



#1S.SLPERR 



nov RKBA.R5 
JSR PC.TSTRWS 
ERROR 16 
CNT. RESET 



nov 
nov 
nov 
nov 

CHKCRDY 



#-1 .8RKUC 
R1.8R5 :THIS 
DRIVAD.8RKDA 
#67.8RKCS 



ERROR 65 



INC 
BEQ 

cnp 

BEQ 

nov 
nov 

ERROR 



INDX1 
5S 

R2.8R5 
4$ 

R1.SREG0 

aR5,SREGl 

17 



INC 
BEQ 

ADD 

nov 

ADD 
BNE 



INDX2 
5$ 

R2.R1 
R1,R2 
«2,R2 
1$ 



;;D0 5 ITERATIONS 

;CHECK IF SIN SET. IF SET DRV RESET 
.■INITIALIZE (VALUE OF RKBA) 
.•INITIALIZE (INCnNTD VALUE OF RKBA) 

;SET RETURN ADRES FOR LUPIN6 
:0N EROR 



WAIT FOR R/W/S RDY 
R/W/S RDY IS NOT SET 
DO CONTROL RESET 
WRITE CHK 1 WORD 
BUS ADRES 

SET DISK ADRES 

WRITE CHECK, 60. nEX BITS SET 
GO CHECK IF CONTROL RDY IS SET 
IF SO. SKIP THE EROR nESSAGE. 
CNTRL RDY DID NOT SET AFTER 
WRT CHK WAS TRIED TO NXn LOC 
U niGHT WANT TO USE TESTS 
CHECKING nEX BITS t NXn. 
ALLOW ONLY 5 ERRORS OF ABOVE KIND 



DID RKBA INCREnENT BY 1 FROn 

ITS INITIAL VALUE? 

YES. BRANCH 

GET EXPCTD RKBA 

GET RKBA RECVD 

RKBA DID NOT INCREnENT BY 

1 FROn ITS INITIAL VALUE. 

ONE WORD WRT CHK WAS TRIED 

TO A NXn LOCATION. THERE 

WILL BE AN NXn ERROR. 

BUT STILL RKBA SHOULD 

INCRENENT BY 1 FROn ITS 

INITIAL VALUE. 

ALLOW ONLY 5 ERRORS OF 

THE ABOVE KIND 

SET NXT VALUE OF RKBA 

SET EXPCTD VALUE OF RKBA 
ALL DONE? 



DUnnY EXIT POINT 
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SEti 0106 



5 70t\ 






J fy 1 












K7QX 






J fy* 












J f TO 






^707 

jfyf 


rti 77An 

U 1 1 fO\j 


t\f\f\f\f\L 




A1 77<15 
yjiffoe. 


\J\df if 


C7QO 


ni 777n 


t\f\^7X7 
UU J f J f 


joUU 


ni 777L 
\j \ f f (H 


nni Lf\x 


jOU 1 


ni 777A 


UUh J jf 


joyjc 




1 U<t 1 CM 


joyjj 








UcUUU'i 










jOUO 












JOUO 






J OUT 






JO 1 u 






JO 1 1 






JO 1 c 






30 1 J 






JO 1 


UcwUUt 




JO 1 J 


UcUUUO 


ni ?7T7 


JO 1 o 




UU Jc J ' 


SA1 7 

JO 1 f 






JO 1 o 


UcwV/cw 


UwH » J » 


JO 1 T 




in^n7A 

1 UH UcO 


J0£U 




\)CJI Jf 


JOC 1 






jOcc 


wCwU Jt 


UU 1 SU2 


JOC J 


wcww JO 


UOc r Jf 


^A7£ 

JOcH 




UUU 1 J r 


SAPS 

JOc J 






jOcO 


UcUU Jv 


UU JUjr 


SA?7 

jOe / 






jOco 


















JO J 1 






JO Jc 






JO J J 






JO^H 






JO J J 






JO JO 






JO J' 






SAXA 

JO JO 












58A0 






5841 






58A2 






5843 






5844 






5845 


020054 


000004 



.••TEST 55 CHECK FOR RK-05F 

;»THIS TEST CHECKS RK-05F TYPE DRIVES 

:*T0 INSURE THAT IF SEEKS ARE ISSUED ON ONE 

.-•DRIVE, THE OTHER DRIVE BECOMES BUSY 



000001 001206 
001 4C4 

025160 



TST55; 



SCOPE 

NOV 

TST 

BEO 

JSR 

ERROR 



#1,STinES 

FFLAG 

IS 

R5.FCHECK 
120 



;D0 1 ITERATION 
SEE IF RK-05F 
NOT F 

SEE IF OTHER GOES BUSY 



IS: 



.••TEST 56 END OF PROGRAM 

•THIS IS NOT A TEST. BUT A LINKAGE PROVIDED TO PERFORM 
•THE ABOVE SUB-TESTS FOR ALL DRIVES THAT ARE PRESENT. 
•NOTE THAT THE NEXT TEST- HARDWARE POLLING LOGIC- 
•IS DONE USING ALL THE DRIVES THAT ARE INDICATED PRESENT. 
•DO NOT LOOP ON THIS "TEST*. 



000001 001206 
001352 

021504 

001412 001352 BTECP: 



020000 001350 
005040 

001112 



TST56: SCOPE 

MOV fl.STIMES 

INC DRVDON 

JSR PC.DRESET 

ERROR 26 

CMP ORIVS, DRVDON 

BEQ IS 

ADD #20000.DRIVAD 

JMP NUDRV 

IS: CLR SERTTL 



;;D0 1 ITERATION 

.INCREMENT THE COUNT FOR THE NUMBER 
:0F DRIVES THAT ARE CHECKED 
.•RESET THE DRIVE 

;R/W/S DIDN'T SET AFTER DRIVE RESET 
;HAVE U TESTED ALL THE DRIVES 
;THAT ARE PRESENT? 
;IF YES. EXIT 

;ADRES THE NXT POSSIBLE DRIVE 
;G0 BACK AND TEST THE NEXT 
;DRIVE PRESENT 



••TEST 57 CHECK HARDWARE POLLING LOGIC 

•THIS TEST CHECKS THE HARDWARE POLL LOGIC. USING ALL THE DRIVES 
•PRESENT ON THE RK11. ATLEAST TWO DRIVES SHOULD BE PRESENT 
•TO DO A MEANINGFUL HARDWARE POLL. SEQUENCE OF OPERATIONS IS 
•AS FOLLOWING: 

•1) NUMBER OF DRIVES ON THE RK11 IS ASCERTAINED. 
•2) HAVING LOCKED OUT ALL INTERRUPTS (CPU PR 7), 
•FOR ONE DRIVE AT A TIME, ONLY WHEN 'CNTRL RDY' 

•3) CPU PRIORITY IS DROPPED TO 4 SO THAT RKII CAN INTERRUPT, THE INCOMING 
•INTERRUPT IS PROCESSED TO CHECK IP IT WAS DUE TO 'SEEK DONE' BY 
•ONE OF THE DRIVES. 

•4) IF BY THE END OF THE SET TIME A DRIVE HAS NOT INTERRUPTED 
*AN ERROR MESSAGE IS GIVEN INDICATING WHICH DRIVE DID NOT 
•INTERRUPT AFTER SEEK WAS DONE. 

SCOPE 



SEEK IS INITIATED 
IS SET. 



'TST57 
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0P0056 

Uc vv 




000005 

w W V W J 


001206 

WW 1 c WW 


NOV 


#5 tTlNES 


- -DO 5 I TFRAT IONS 




070064 


005P37 

VV^ C J f 


001440 

VV 1 ^^v 




INC 


SIZYET 


'FOUNR RK05F YET'* 




020070 


00100? 

VV 1 VvC 






BNE 


25» 


; YES 




0P007? 


004737 

V V*t f J f 


025304 

V C ^ 




JSR 


PC.SIZEF 


■FIND WHICH ARE RK-05F 

fi inw wf*Av*i wnc w^i 




0?0076 


005037 

VV J f 


001436 

VV 1 JO 


25t- 

C W ■ 


CLR 

I. C n 


PHVDRV 


'NUNBER OF ACTUAL DRIVES 

f *«v**wc** w 1 w^c vn A VC J 




0?010? 


013700 

w 1 C f WV 


001414 

VV 1 "f 1 "f 




MOV 


fDRIVO RO 


; TABLE 


585? 


020106 


005710 

Vw J f I V 




23S- 

C J9 ■ 


TST 


iRO) 


■DRIVE HERE^'' 

fW**AVk 


585? 


0P011Q 


001405 

VV 1 "tv J 








22J 


:N0 


5854 


0201 12 

vcv lie 


005237 

WW ^C ' 


001436 

V V 1 ~ iJ\* 




INC 


PHYDRV 


■COUNT DRIVE 


5855 


0201 16 

VC V 1 1 u 


005710 

V V J f 1 V 






TST 


(RO) 


;RK05F? 


5856 


020120 

VC V lev 


100001 

1 V V V V 1 






BPL 

D * C 


22$ 


.-NO 


5857 


020122 


0057?0 

» CV 






TST 


(RO) * 


■DONT COUNT F TWICE 

0 Ir Wn I V WW'V I ■ W A V k 


5858 


020124 

VC V 1 c ~ 


005720 




22$: 


TST 


(RO)* :NEXT 


DRIVE 


5859 


020126 

VCV 1 cv 


020027 

VC V VC ' 


001433 

wV 1 ^ w 




CMP 


PO #DRIV7«1 


;ALL YET 


5860 


020132 

VCV 1 VC 


002765 

VVC 1 \1 J 






BLT 


23$ 


:N0 


5861 


020134 


005037 


001406 

WW > ~ w w 




CLR 


ODDEVN 


-EVEN DRIVES FIRST IF F 


5862 


020140 

VCV 1 ^ V 


005737 


001412 


T56: 


ST 


DRIVS 


:ANY DRIVES PRESENT'' 


5863 


020144 

VCV 1 


001002 

VV > VVC 






BNE 


20S 


; YES 


5864 


020146 

VCV 1 ~ V 


000137 


020652 




JNP 


SEOP 


;N0 


5665 


020152 


005237 


001434 


201: 


INC 


T56FLG 




5866 


020156 


013700 

V I V > VV 


001332 

V V 1 WC 




nov 


RKCS RO 




5867 


020162 


005037 


001356 




CLR 


INOXI 


.•FLAG TO INDICATE: 


5868 














:(INDXl)sO POLLING DONE AFTER ALL 


5869 














■DRIVES SEEK TO CYL 0 


5870 














:(INDX1)=1 POLLING DONE AFTER ALL 


5871 














;DRIVES SEEK TO CYL 4 


5872 


020166 

VCV 1 V V 


005037 


001360 

WW 1 V w w 


15S: 


CLR 


INDX2 


■FLAG INDICATING TYPE OF INTERRUPT 


5873 














■SET TO NON-ZERO TO INDICATE 


5874 














:THAT THE INTERRUPT IS DUE TO 


5875 














.-SEEK DONE 


5876 


020172 

WC V ■ > c 


104413 






CNT. 


RESET 


:G0. DO CONTROL RESET 


5877 














;THiS IS A CALL FOR THE 'CNTRL- 


5878 














:RESET* ROUTINE. A CONTROL RESET IS 


5879 














.'ISSUED AND AFTER A CERTAIN TINE 


5880 














;IF THE 'CNTRL RDY' DOES NOT SET 


5881 














.-AN ERROR IS REPORTED. NOTE THAT 


5882 














;THE PC IN ERROR NESSAGE IS THE 
;PC WHERE 'CNT. RESET' IS LOCATED. 


5883 














5884 














:THIS IS A VERY BASIC ERRK IF IT 


5885 














.■OCCURS GO BACK TO TEST 10 


5886 


020174 


005737 


001356 




TST 


INDX1 


:PERF0RNIN6 SEEKS TO CYL 4 


5887 


020200 

Wb WC w 


001002 

VV 1 WC 






BNE 


m W 


•YES. BRANCH 


5888 


020202 


005002 

VV ^ W V c 






CLR 


R2 


;N0 


5889 


020204 


000402 






BR 


.♦6 




5890 


020206 


012702 


000200 

W W W Kb W W 




MOV 


f200.R2 

W W W W 0 ' • ha 


;SEf AORES FOR FOURTH CYLINDER 


5891 


020212 


012701 


001414 




nov 


fDRIVO R1 

wwf*A FW#>» ' 


: INITIALIZE POINTER 


5892 


020216 


012703 


177770 




nov 


#-10, RJ 


.-SET COUNT FOR 8 DRIVES 


5893 


020222 


012705 


033342 




NOV 


fOUTBUF ,R5 


.-INITIALIZE POINTER TO INDICATOR AREA 


5894 


020226 


005025 






CLR 


(R5)t 


.-CLEAR OUT THE 8-WORD INDICATOR 


5895 


020250 


005203 






INC 


R3 


.-AREA WHICH IS USED FOR DOING 


5896 


020232 


001375 






BNE 


.-4 


.•SOFTWARE POLLING LATER ON 


5897 


020234 


012703 


177770 




NOV 


#-10, R3 


.-SET COUNT FOR 8 POSSIBLE DRIVES 


5898 


020240 


012705 


033342 




NOV 


#0UTBUF,R5 


.•INITIALIZE POINTER TO INDICATOR AREA 


5899 


020244 






IS: 








5900 


020244 


012746 


000340 




NOV 


#340, -(SP) 




5901 


020250 


012746 


U20256 




NOV 


#64t,-(SP) 





E 9 

M0-11-CZRICICF. RKII BASIC LOGIC TEST 2 HACYll 50A(1052) 21-FEB-78 08 
CZRKKF.P11 21-FEB-78 08:5^ T57 CHECK HARDWARE POLLING 





n?n?s^ 








OT I 






n?n?SA 






DH» . 








n?n?5A 

\JCvC JO 


0X371 1 


000001 




n 1 T 


irR I TO f RI ) 


J7\JJ 


n?n?A? 


001 ^X'X 






RF a 

BC W 


LX 

H 9 




UcUcOf 


00^71 1 






T C T 


f D 1 ) 


SQ07 

J TV t 




1 0001 3 






RPI 

Or L 


1 71 
1 f 9 


SQOft 


n?n?7n 


0X3703 


030000 




B I T 

0 I 1 


irR I T 1 X P3 




n?n77Zi 

ucUc ' *• 


001 ZiOZi 

UU 1 HUH 






RFO 
DCU 


1 At 

1 09 




n?n?7A 

UcUc r O 


0057X7 


001 ^ OA 




T^T 


nnnP um 




n?n^o? 


001 A33 

UU 1 He J 






DCU 


Li 

H • 


JTtC 


o?n^o- 

yjc v jyj** 


000^03 






RR 

On 


1 7i 


S91 ^ 


0?n^OA 


00S737 


00140A 

UU 1 HV/O 




T^T 


nnnF um 




0?0^1? 


001 01 7 






one 


H • 


SQ1 S 

JT 1 ^ 


0?0314 


01031 5 




1 7* • 


nu V 


R3 ri}5) 


J T 1 O 














S91 7 














S918 














S919 


0?0316 

wCw J 1 U 


0/i?73S 


01 7777 




R 1 r 






0503?? 


005004 






L L n 


R4 




0?0^?4 

V/C w Jc"* 


1 0571 0 




3S • 


T ^TR 






0?03?6 


1 00405 






on i 


J 9 


59?^ 


0?0330 


005P04 

vv J C v"» 






1 Mr 


P4 


S9?4 


0?033? 


vv 1 J f 






RMF 


c » 




0?0334 


vv"t f J f 


03077^ 




J On 


r L y VJ 1 HnU 


59?6 


030340 


1 v"*vc 1 








31 


59?7 














59?8 


0?034? 


010777 

V I VC • ' 


16077? 

1 W r r C 




MOU 


R3 aRKDA 


S9?9 
















0?0346 


01?710 


0001 1 1 

vV/v 1 1 1 




MOU 

nu V 


#111 aRO 
* 1 1 1 « Snu 




0?035? 


0057?1 






T^T 


^R1 ) t 




vC w ^ J** 


06?70? 

vUC > V/C 


030000 

VCwf WW 




Ann 


#30000 R"* 

"CUUUU • nc 


^ 7 J J 




005303 






1 ur 

1 nit 


RX 






001 330 






RMF 


1 c 


J 7 J J 




























5937 














5938 














5939 














5940 














5941 


020364 


005004 

VV ^ V v^ 






ri R 

U L n 


R4 


594? 


020366 

VC V JWW 


01 370? 

V 1 J r VC 


001402 

VV 1 ^vc 


Si * 
J 9 > 


MOU 

nu V 


RKi/cr R3 


5943 


02037? 


01272? 

V 1 c > c c 


0?04?4 

VC V"t c ~ 




MOU 

nu V 


w09 ^ \nc f ^ 


5944 

J 7^^ 


0?0376 


01271? 

V 1 C r 1 C 


000340 

VV V J~ V 




MOU 

nu V 


#X^0 (H3) 

• JHU , \nC / 


5945 


0?040? 

vC V*t vC 


013746 


001 AOO 
vv 1 "tw 




MOU 

nu V 


RrPRI -f<^P) 


5946 

J 7^ W 


0?0406 

VC Vw 


012746 


VC V"t 1 




MOU 
nu V 


g^f^t .fcp) 
W i 09 f \ Or / 


5947 

J 7"^ f 


020412 


000002 

VV wvc 






RT I 

n 1 1 


5948 


020414 

wC 1 ^ 


000?40 

VV VC ^ V 






MOP 

nur 




5949 

^ 7^ 7 


020416 

VC V^ 1 u 


005?04 

W JC V"t 






IMP 


R^ 
n H 


5950 


VC V"tC V 


001 375 

Vv % J 9 J 






RMF 


1 

1 09 


5951 


020422 

VC V^C c 


00045? 

VVV^ ^c 






RR 

on 


111 
1 1 9 


5952 














5953 


020424 


022626 




6S: 


CHP 


(SP)+,(SP)+ 


5954 


020426 


005737 


001360 




TST 


INDX2 


5955 














5956 














5957 


020432 


001021 






6NE 


9S 
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OGIC 



SEQ 0108 



IS THIS DRIVE PRESENT? 
IF NOT. BRANCH 
RIC06F? 

NO, CONTINUE 
DRIVE EVEN? 
tES 

DO UE WANT ODD? 
NO. SO DO NOT TEST 
ADO THIS DRIVE TO LIST 
DO WE WANT EVEN? 
NO, SO SKIP 

SET UP THIS WORD IN THE 
INDICATOR AREA SHOWING THAT THIS 
DRIVE (AS IN BITS 13-15 OF R2} 
IS PRESENT 

MASK OUT UNWANTED BITS (CYL,SUR,SEC BITS) 

IS CNTRL RDY SET? 

rES. BRANCH 

NO, WAIT FOR IT 

IF WAITED LONG REPORT ERROR 

;G0, GET RKCS,ER.DS,DA 
CNTRL RDr DID NOT SET AFTER ACCEPTING 
ADRES FROM PREVIOUS SEEK 
ADRES THIS DRIVE. CVL 0 OR CYL 4 
(WHICHEVER THE CASE NAY BE) 
SEEK. GO, IDE SET 
NEXT DRIVE DATA 

INCREMENT DRIVE ADRES (SITS 15.14.13) 
TO NEXT ONE 

BRANCH BACK IF ALL DRIVES ARE 
NOT CHECKED TO SEE IF THE NEXT 
DRIVE IS PRESENT (t IF SO ISSUE A 
SEEK TO IT) 

BY NOW SEEKS HAVE BEEN ISSUED 
TO ALL DRIVES PRESENT t POLLING 
HAS BEGUN 



SET ADRES FOR RK11 TO INTERUPT 
SET PSW ON INTERUPT 
DROP CPU PRIORITY TO 4 SO THAT 
;RK11 CAN INTERUPT 

THIS IS A TIME LOOP DURING 
WHICH ALL DRIVES PRESENT SHOULD 
INTERRUPT 

BRANCH AND CHECK IF ALL AVAILABLE 

DRIVES INTERRUPTED CORRECTLY 

RESTORE STACK POINTER 

WAS THIS FIRST INTERRUPT 

DUE TO 'ADRES ACK' AFTER INITIATION 

OF SEEK? 

IF YES, CHECK THE FOLLOWING 
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k QC D 
















coco 
5959 




A T 1 7 1 A 


ATAAAA 

0^0000 




D T T 

BI 1 


#5AAAr aoA 

fcOOOu,«KU ; 


r UC r If TUAT CrD IC UAT CCT 


5960 


ATAy y A 


AA1 y Al 

001403 






DC A 


7* 


DDA^ru Tr crD ri cad 


590 1 


AiAy y ^ 


Al i AY7 


001 16£ 




nov 


aoA CDC<tA 


^c T orrc 


jyoc 


f\'yf\j y ^ 
0cU«iA6 


1 AA A7A 






C BDAD 


7A 

' O > 


ACTED TUF CIDCT IklTEOOllDT UUICU 


59o3 














IC nilC TA TkllTIATIAU AC CCCr CfD 
















CUAIII A tIAT UAUC CCT IT f>in 
SHUULU NUI HAVC 1 • 11 OIV 


59o5 


AOAy CA 


Al 77A1 


1 6065c 


7* . 


MAU 


aoiTAc 01 




59oo 


ATAy c y 


A107A1 
05C/01 


1 iL.AAAA 
1 60000 




O 1 1 


AIAAAAA 01 


D^nc BiTc iCapi7 cliiAiiin Bc no 
KKUo Olio O'lj bHLUULU DC ILK 


596/ 


AOAy iLA 


AA1 y AT 

001403 






DC A 
DC U 


BC 
Oa 




3960 


AOAy 


Al Al 17 

0101 3f 


AAI 1^0 

001 16c 




nuv 


01 CDC/lA 


^CT ornc 

UC 1 KKUd 


5969 


UcU*i66 


1 A/. ACA 

104050 






C DDnD 
C KKUK 


CA 


cci'r utTu inP ccT uac icciirn ta 


59/U 














Al 1 AUAII ABI C nDIUFC TUT FIDCT 
ALL AVAjLAOLC fniVCd* 1 nl rinji 


59/ 1 














IklTPDilPT IC nilC TA CFCr IkifTIATPH 
INICnUrl lo V\JC lU OCC^ iNiliAICly 


KOTO 

jyi c 














Bv cDCT nou nou in nitc i7-ic 


59f 3 














CUAIII n nc riB aftb tuic cbct iaidiidt 

snUULU DC LLn nr In in|9 msi INnUr 1 • 
















TUFV UFDF UAT IF TUIC FBBAB AmiDC 
1 nc < VCnC NUI ir ini) CnnUn ULLUnd> 


59f 5 


ATA/ 7A 


005c3/ 


AAI 7AA 
00 1 500 


flC - 
0» • 


1 fix. 


t unv 5 
1 NU AC 


CFT iiB CI kc. luniriTiun 

9C 1 ur rLAU INUiLAIiPIU 


jyto 














> TUAT TUP FIDCT IMTPDDIIPT nilF 
1 IIA 1 1 nc rindi iniCnnUr 1 vvC 


K077 

jyf f 














> TA IUIT1ATIAM AF CFFir UAC 
lU XNIIiAiiUni Ur dCC^ wnO 


jy f 0 














DDATFCCFn 
r nUL C 99C U 


KQ7Q 

jyfy 


ATAy, 7y, 








BO 


CC 
J • 


r,n BATir ta tuf uait i hap t. uait 

UU DALK 1 U 1 nc HAi 1 LUUr Ir WA 1 1 


5tOU 














• PAD UFVT IMTFDDIIPT FOAM Dlr11 
^rUn IVCAI IrliCnnUri r nun n^ ■ 1 


590 1 


A 3 Ay. 7/L 


Al T7AX 
01 5/ U5 


AA1 Z. lA 
00 1 H jO 


oc • 

7» . 


MAU 


rn TUKV , K5 


■ CFT TAIIMT AC M AF KDIUFC DDCCFAIT 

, 3C 1 Luuni ur « ur i/nivcd rncdCNi 


570c 




Al 57A^ 
U 1 c ' U5 


A7 ''XLO 




MAU 


XAIITBIir DC 

>uu 1 our ,nj 


•IMITIAI 1 7F DniMTI< 


5905 


ATAC AZ 

U<:U5l)6 


A1 77A1 


1 QUO 1 H 




MAU 

nUv 


aoiTAC 01 


,rCT DirAC 
, UC 1 KKUd 


5 tO*» 


UcU5 1 c 




Al 7777 




OIL 


J17777 01 


■HACr BITC A-l? 


5t05 














• TUF FAI 1 AUlUt: TAnF IC A CAFTUADF 
, 1 nc rULLUWinU LUwC id n 9Ur 1 WAnC 


5700 














• PAi 1 uuiru Fiunc aiit uuiru adiuf 

,rULL MfniLn riNi/d UU 1 wniLn UniVC 


CaB7 
570» 














■ TAIICFn TUF PDFCFMT IMTFDDIIPT 
rvAUdcu 1 nc r^ncdcni inicnnuri 


^QBB 
5700 














• Aun CFTC IIP A Fl AC BIT FAD 
1 ANU dC 1 d Ur A r LAU Oil r Un 


5707 














• TUF ADIUF M IMAirATINf; TUAT 
1 1 nc i/niVC iNUiLAIlNO 1 HA 1 


577U 














>TUIC ADIUF M IMTFBDIIPTFA 
1 iniS UKiVC w INICnnUrlCI/ 


577 1 


vcvj 1 0 


A9A1 9C 






r MD 


01 f DC W 
n 1 , I n5 7 * 

1 AC 




COQ5 

577£ 


none 5n 


AAI / 1 1 

1 1 1 






ocw 


• DDAUru IF lUTFDDIlPT IM': ADIUF UAC FAIIMA 
pDnANLn ir i N 1 CnnUr 1 i UniVC WAd r JUnu 


COOT 

577 J 




nn^'^AT 

UU55UJ 






nc r 


D7 

n J 


•UAUF il rurn All ADIUC PDFCFMT'' 

p nnVC U LrlKi/ ALL UA i V 0 rACdCni . 


jyyH 


(\3fiK0L 


AAI X7L 






BMC 


-A 


•IF MAT IMP RAir I CUt 
1 ir nw 1 LUr DAn v Lnn 


5775 














• DFPADT FDDAD IF TUF IMTFDDIIPT IMH 
» nCr^Un 1 CnnUn if 1 nC in 1 CnnUr 1 inVJ 


5 770 














•nDIUF M fAC IM DirnC 17-10 UAC MAT 
rl/niVC • lAO in nnl/d Ij iji WAO nu 1 


cao7 

577f 














•AMV AMF AF TUACF TUAT ADF PDFCFMT 

iANT UNC ur 1 nudc 1 nA i arc rncocn 


5770 


A5nC?A 
UcU5cO 


Al Al 






MAU 


01 .fDA^ 
K 1 , *■ I nO / 


• nPT UADA TA B CUFTfk DT 
f uc 1 wunu i u 9 dnr i v n i 


FQQQ 
J 777 


rt5AS7A 
U£U55U 


AAA 777 


A51 5AA 
Uc 1 cUU 




1 CO 
Jon 


or CUFTDT 


• r.n cu 1 FT IT 

, uU 9n 1 r 1 i 1 


OUUU 


UcU55h 


Al 3A77 


AAI 1 A? 




MAU 

nu V 


V nC 1 * , •nCUU 


•TUIC nDIUF M UAC DPrvn IM DirnC AC 


OUU 1 














•THF IMTFDRIIPTING DRIUF RUT THIC 

fine iniCnnUrllrlw l/niVL« DUI inio 


AHA? 














■ nOIUP IC MAT PUVCirAIV PDP'^FMT 
fi/niVC iO NUI rnijiLALT rnCOCni 


0UU5 


A3A^^A 


1 U<tU5 1 






C BOAD 
t n nUK 


C1 

5 1 


• Drnc IMAirATFC AM 1 MTFDDl IPT T Mf; 
pK^Jb inUiLAICd An i n 1 CnnUr 1 i revj 


/.AHA 














•noiUF M ^AllDIMt: U'UADF PAI 1 ) Rll''' 
1 UniVC V vuuninu n wnnc rULL/ du < 


0UU5 














•TUAT RRtUF tC AfTllAI 1 V MOT PRFCFNT 
f 1 nA 1 i/nivc Id ALiUALLi nu 1 rnLOcni 


Ann A 


UcU5*»c 








BD 

On 


1 AC4'7 




OWf 


UcU5*»'» 






1 AC • 


1 NL 




•CFT IIP Fl AC TMntrATIMG THAT 
r dC 1 U* r LAU inui^Aiinu inni 


6008 














■THE INTERRUPT FOR THIS DRIVE 


6009 














.•(AFTER IT HAD COMPLETED ITS SEEK) 


6010 














;UAS PROCESSED 


6011 


020546 


000707 






BR 


5$ 


;G0 BAK t WAIT FOR FURTHER INTRUPTS 


6012 


020550 


013703 


001436 


11$: 


MOV 


PHYDRV.R3 


;GET # OF DRIVES 


6013 


020554 


012705 


033342 




nov 


«0UTBUF.R5 


.-INITIALIZE POINTER 



020560 


105715 




US: 


TSTB 


(R5) 


020562 


001006 






BNE 


13S 


020564 


011546 






NOV 


(R5) .-(R6) 


020566 


004737 


021200 




JSR 


PC SHFTRT 


020572 


012637 


001162 




HOV 


(R6)^.tREC0 


020576 


104052 






ERROR 


52 


020600 


C62705 


0000C2 


13$: 


ADO 


»2,R5 


020604 


005303 






DEC 


R3 


020606 


001 364 






BNE 


14t 


020610 


005737 


001356 




TST 


INDXI 


02061A 


001004 






BNE 


TSTENO 


020616 


005237 


001356 




INC 


INDXI 


020622 


000137 


020166 




J MP 


15» 
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6014 

6015 

6016 

6017 

6018 

6019 

6020 

6021 

6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6034 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6044 

6045 

6046 

6047 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

6060 

6061 

6062 

6063 

6064 

6065 

6066 

6067 

6068 

6069 
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111 



SEO ono 



020626 005237 001406 

020632 022737 000002 001406 

020640 001402 

020642 000137 020140 

020646 005037 001434 



TSTEND: INC 
CHP 
BEQ 
JHP 

21$: CLR 



ODDEVN 

#2,0DDEVN 

21$ 

T56 

T56FLG 



DID THIS DRIVE INTERRUPT? 

YES, BRANCH 

GET THIS DRIVE * 

SHIFT IT TO THE RIGHT 

THIS DRIVE # DID NOT INTERRUPT 

DURING H'UARE POLL 

DRIVE » (AS IN $REGO} DID NOT 

INTERRUPT DURING HARDWARE POLL 

INCREMENT POINTER TO THE NEXT FLAG 

CHKD FOR ALL DRIVES? 

IF NOT LUP BACK 

DONE POLLING FOR SEEKS TO CYL 312? 

IF YES, EXIT 

IF NOT. INCREMENT FLAG 

GO DO IT 

INDICATOR TABLE 

THE 8-UORD INDICATOR TABLE USED IN 
THE FORMER PART OF THIS SUB-TEST 
IS LOCATED STARTING AT "OUTBUf. 
WORDS ARE SET UP TO INDICATE 
PRESENCE OF A DRIVE EG: IF 
DRIVES 0,1,2 ARE PRESENT, IT WILL 
LOOK LIKE 

OUTBUF: 000000 BITS 13,14.15 

020000 CONTAIN THE 

040000 DRIVE NO. 
000000 REST O'S 

WHEN A DRIVE INTERRUPTS AFTER SEEK 
IS DONE BIT 0 OF THE CORRESPONDING 
INDICATOR WORD IS SET. THUS FOR THE 
ABOVE EXAMPLE IF ALL DRIVES INTERRUPTED 
CORRECTLY THEN IT WILL LOOK LIKE: 
12$: 000001 BIT 0 SET 

020001 TO INDICATE 

040001 DR INTERRUPTED 
000000 REST O'S 



NOW ODD IF RK05F 
SEE IF DONE 
ALL DONE 
TE5T AGAIN 



.SBTTL END OF PASS ROUTINE 
.♦INCREMENT THE PASS NUMBER ($PASS) 

.•♦INDICATE END-OF-PROGRAH AFTER 1 PASSES THRU THE PROGRAM 
.-♦TYPE "'END PASS #XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER) 
.♦IF THERE S A MONITOR GO TO IT 
.♦IF THERE ISN'T JUMP TO ST4 
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6070 

6071 

6072 

6073 

6074 

607b 

6076 

6077 

6078 

6079 

6080 

6081 

6082 

6083 

6084 

6085 

6086 

6087 

6088 

6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 

6099 

6100 

6101 

6102 

6103 

6104 

6105 

6106 

6107 

6108 

6109 

6110 

6111 

6112 

6113 

6114 

6115 

6116 

6117 

6118 

6119 

6120 

6121 

6122 

6123 

6124 

6125 



020652 

020652 

020654 

020660 

020664 

020670 

020676 

020700 

020702 

020704 

020706 

020710 

020712 

020716 

020722 

020724 

020730 

020734 

020736 

020740 

020742 

020744 

020746 

020750 

020750 

020752 

020754 

020757 

020764 

020772 
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SEO 0111 



000004 








SCOPE 




005037 


001^02 






CLR 


STSTNM 


005037 


001206 






CLR 


tTIHES 


005237 


001100 






INC 


SPASS 


042737 


100000 


oonoo 




BIC 


#100000 SPASS 


005327 








DEC 


(PC)* 


000001 






SEOPCT : 


.UORD 


1 


003022 








BGT 


SDOAGN 


012737 








nov 


(PC)+-S(PC)+ 


000001 






SENDCT : 


.WORD 


1 


020700 








SEOPCT 




104401 


020757 






TYPE 


.SENDMG 


013746 


001100 






MOV 


SPASS, -(SP) 


104405 








TVPDS 


104401 


020754 






TYPE 


.SENULL 


013700 


000042 




SGET42: 


nov 


3#42.R0 


001405 








6EQ 


SDOAGN 


000005 








RESET 




004710 






SENDAD: 


JSR 


PC, (RO) 


000240 








NOP 


000240 








NOP 




000240 






SDOAGN: 


NOP 




000137 








JHP 


a(PC)* 


004436 






SRTNAD: 


.WORD 


ST4 


377 


377 


000 


SENULL: 


• BYTE 


-1.-1.0 


015 


042412 


042116 


SENDMG: 


.ASCIZ 


<15><12>/END 


050040 


051501 


020123 








000043 













ZERO THE TEST NUMBER 

ZERO THE NUMBER OF ITERATIONS 

INCREMENT THE PASS NUMBER 

DON'T ALLOW A NEG. NUMBER 

LOOP? 



;;YES 

;;RESTORE COUNTER 



TYPE "END PASS #" 

SAVE SPASS FOR TYPEOUT 

GO TYPE—DECIMAL ASCII WITH SIGN 

TYPE A NULL CHARACTER 

GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE WORLD 

GO TO MONITOR 

SAVE ROOM 

FOR 

ACT11 



.-RETURN 

;;NULL CHARACTER STRING 



.SBTTL GT2RG: ROUTINE FOR GETTING RKCS.RKER 

.-SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS. RKER 

:T0 SREGO. SREGI RESPECTIVELY BEFORE TYPING OUT AN ERROR MESSAGE. 

.-CALL: JSR PC.GT2R6 

.SBTTL GT3RG: ROUTINE FOR GETTING RKCS. RKER. RKDS 

;GT3RG 

.•SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS. RKER. RKDS 
;T0 SREGO, SREGI, SREG2 RESPECTIVELY BEFORE TYPING OUT AN 
.ERROR MESSAGE. 
;CALL: JSR PC,GT3R6 

.SBTTL GT4R6: ROUTINE FOR GETTING RKCS. RKER. RKDS. RkOA 

;GT4RG 

.'SUBROUTINE FOR TRANSFERRING CONTENTS OF RKCS. RKER, RKDS 
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21-rEB-78 08:51 



TEST 2 



0 1 CO 












0 1 CO 






O 1 C7 






O 1 JV 


\JC\Jf f** 


m 7717 


0 1 J 1 


UclUUe 


ni 7 717 


0 1 3c 




n^ 7717 

Ul r r 3f 


O 1 J J 


UclUlo 


n^ 7717 


A1 1A 


Uc 1 UCH 


UUUcUr 


0 1 j7 






1A 






O 1 J r 






O 1 JO 






A1 10 

0 1 JT 






0 1 '•U 






0 I *• I 












A1 A1 






O 1 •••• 












A1 AA 
0 1 SO 






A7 






A1 Afl 
O 1 HO 






A1 AO 


VC 1 UcO 


1 OAAOI 
1 UHhU I 


O 1 3U 




nnnAOA 

UUUHUO 


O 1 J 1 






o 1 jc 


U£ 1 \JJ\J 




O I J J 


Uc 1 U JU 


ni niAA 


"iA 
O 1 JH 


UC 1 U JC 


1 \JHH\Jc 


A^ ss 


UC 1 V J*t 


Ul/UCwr 


O 1 JO 






O 1 J f 






W 1 JO 






o 1 jy 






0 1 ou 






O 1 O 1 






o 1 oc 






A1 A'^ 

O 1 O J 






A1 AA 
O 1 O** 






O 10 J 






A1 AA 
u 1 OO 






A1 A7 

O 1 0 r 






A1 AA 
O 1 OO 






A1 AQ 

O 1 07 






A1 70 






A1 71 

O 1 r 1 






A1 7? 

O I r C 






A1 7^ 

O 1 r J 






A1 7A 






A1 7S 

0 I ' J 






6176 






6177 






6178 






6179 






6180 


021056 


010046 
012700 


6181 


021060 



160340 
160320 
160314 
160310 



001170 
001166 
001164 
001162 
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GT4RG: ROUTINE FOR GETTING RKCS, RKER. RKOS, RKOA 

RKDA TO SREGO. SREG1. SREG2, tREG3 RESPECTIVELY BEFORE 



SEO 0112 





UU 1 All 






.CALL: 


JSR 


PC.GT4RG 




GT4RG: 


MOV 


aRiC0A.SREG3 


.-GET RKDA 


GT3RG: 


NOV 


aRKDS,SREG2 


.GET RKDS 


GT2RG: 


NOV 


aRKER.SREGI 


.GET RKER 




NOV 


aRKCS, SREGO 








PC 






.SBTTL 


TYERH: SPECIAL 


ERROR MESSAGE ROUTINE 



TYERN 

THIS ROUTINE TYPES OUT 'EROR AT PC=X' 

X IS THE PC WHERE THE EXPLANATION AS TO WHAT HAPPENED IS GIVEN. THIS ROUTINE 
IS USED ONLY FOR NON-NANUAL NODE OF THE PROGRAN. 
CALL: JSR TYERN 

TYERN: 



;;65S: 
64S: 



TYPE 
BR 

.ASCIZ 

MOV 

TYPOC 

RTS 



.65S 
64S 



<15><12>/EROR.PC=/ 
R3.-<SP) 

PC 



.-.-TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 



.SBTTL BDAO. BDA4: 
:BDAO. BDA4 



BREAK DISK ADDRESS INTO SEC, SUR. CYL. DRIVE 



THIS ROUTINE BREAKS A DISK ADDRESS (BITS 0-15) INTO DRIVE «. 
CYLINDER ». SURFACE. SECTOR ». THE ROUTINE IS CALLED BY USING EITHER 
BRKDAO OR BRKDA4, BOTH BEING 'TRAP' INSTRUCTIOS WITH THEIR LOWER BYTES 
ENCODED TO PROVIDE INDEXING TO 'BDAO' OR 'BDA4'. BEFORE CALLING 
THE ROUTINE THE DISK ADDRESS WHICH IS TO BE BROKEN AS ABOVE 
IS DEPOSITED IN SREG10. 

BRKDA4 PUTS THE 
DRIVE # INTO SREG4 
CYLINDER « INTO $REG5 
SURFACE # INTO SREG6 
SECTOR # INTO SREG7 
BRKDA4 



'BRKDAO' PUTS THE 
DRIVE # INTO SREGO 
CYLINDER # INTO SREGl 
SURFACE » INTO SREG2 
SECTOR # INTO $REG3 
CALL: BRKDAO 



001172 



BDAO: 



NOV 
NOV 



RO.-(SP) 
«SREG3^2.R0 



.-PUSH RO ONTO THE STACK 
.SET UP POINTER 



HD-11- 


CZRKKF , 


RK11 BASIC LOGIC 


TEST 2 


MCY11 


J 

30A(1052) 21-f£B-78 


9 

08 


:58 PAGE 114 


CZRKKF 


• P'll 


FR-7A 
C 1 r CD r O 


nil • S1 




BDAO 




BREAK DISK ADDRESS INTO SEC, SUR. CVL, DRIVE SEQ 0113 


6182 


021064 


vvUHU J 










BDAR 






6183 




















61 8A 


021066 


nion4A 






BDA4: 


nuv 


RO.-(SP) 




.•PUSH RO ONTO THE STACK 


6185 


021070 


yj \ c 1 WW 


001 POP 






MDU 

nuv 


*$REG7»2.R0 




;SET UP POINTER 


6186 


















6187 


021074 


VJC III 


OPOOOO 


160036 


BDAR: 


R 1 T 


«20000,asUR 




; INHIBIT TVPEOUT? 


6188 


021102 


001034 








RMF 
Drat 


2$ 




:YES, BRANCH TO EXIT POINT 


6189 


















6190 


021104 


010146 








PIU w 


RI.-(SP) 




;PUSH Rl ON STACK 


6191 


021106 


010?46 








MDU 


R2.-(SP) 




.•PUSH R2 ON STACK 


6192 


021110 


013701 


001202 






n V/ V 


SREGIO.RI 




;GET THE ADDRESS WHICH 


6193 


















;HAS TO BE BROKEN 


6194 


021114 




1 777 fiO 

till OV/ 






Q 1 r 


#177760. R1 




.•EXTRACT SECTOR BITS 0-3 


6195 


021120 


v IV/ I **v 








nuv 


R1 .-(RO) 




.-MOVE SECTOR BITS TO SREG3 OR SREG7 


6196 


021122 




001 POP 
w 1 cue 






nuv 


$REG10.R1 




:GET THE DSK-ADRES TO BE BROKEN 


6197 


021126 










MOn 


R1 




.'SHIFT RIGHT 4 TIMES 


6198 


021130 


006201 










R1 




6199 


021132 


006201 








ASP 


R1 






6200 


021134 


006?01 








won 


Rl 






6201 


021136 


01010? 

\J IV 1 wC 








Mnu 

nuv 


R1.R2 




;STORE THIS 


6202 


021140 


042702 


177776 

1 r r f f U 






R I r 

Die 


#177776. R2 




.-EXTRACCT THE SURFACE BIT 


6203 


021144 


010240 








MOU 


R2.-(R0) 




:nOVE SURFACE BIT TO $REG3 OR SRE06 


6204 


021146 


006201 










Rl 




6205 


021150 


010102 








nuv 


R1.R2 




; STORE IT 


6206 


021152 


042702 


177400 






RI f 

DAW 


#177400 ft? 




•FXTRArt THF TVI TMDFR RIT^ 


6207 


021156 


010240 








nov 


R2.-(R0) 




:NOVE CYLINDER BITS TO $REG1 OR SREG5 


6208 


021160 


000301 








SWAB 


Rl 




;SUAB HI-LO BYTES 


6209 


021162 


042701 


177770 






R I r 

OIL 


#177770. Rl 




.•EXTRACT THE DRIVE # 


6210 
6211 


021166 


010140 








MOU 


RI.-(RO) 




.•MOVE DRIVE # TO SREGO OR SPEG4 


6212 


021170 


012602 








nov 


(SP)+.R2 




.RESTORE R2 


6213 


021172 


012601 








MOU 


(SP)*.R1 




.•RESTORE Rl 


6214 


021174 


01?600 






2$: 


nuv 


(SP)*.RO 




.•RESTORE RO FROM THE STACK 


6215 


021176 










QT 1 

n 1 i 






.•RETURN FROn INTERRUPT. EXIT THIS 


6216 


















.ROUTINE 


6217 




















6218 




















6219 




















6220 












•SBTTL 


SHFTRT: SHIFT RIGHT ROUTINE 


6221 




















6222 










.-SHFTRT 








6223 










.•THIS 


ROUTINE SHIFTS A WORD 


TO 


THE RIGHT 13 TIMES. THE WORD TO BE SHIFTED 


6224 










;IS PUT ON THE 


STACK BEFORE 


ENTERING THIS ROUTINE AND IT IS POPPED UP 


6225 










.-FROM 


THE STACK 


AFTER THE SHIFT 


HAS BEEN DONE. 


6226 










.-CALL: 


JSR 


PC. SHFTRT 






6227 


















6228 


021200 


012737 


17776? 


021224 


SHFTRT 


: MOV 


#-15.2$ 




;SET UP A COUNT OF 13 


6229 


021206 


000241 








CLC 




.•CLEAR THA C BIT 


6230 


021210 


006066 


OOOOOP 




1$: 


ROR 


2(R6) 




.•ROTATE RIGHT THE WORD TO B SHFTD 


6231 


021214 


00SP^7 

vvJC^ 1 


vC tec* 






INC 


2$ 




.•SHIFTED 13 TIHES? 


6232 


021220 


Vv f Ji J 








BNE 


1$ 




;IF NOT LUP BAK t SHIFT 


6233 


021222 










RTS 


PC 




.-EXIT FROM THIS SUBROUTINE 


6234 


021224 


000000 






2$: 


0 






6235 


















6236 




















6237 





















M0-11-CZRKICF 
CZRKKF .Pll 



6238 

6239 

62A0 

62A1 

62A2 

62A3 

62AA 

62A5 

6246 

62A7 

62A8 

62A9 

6250 

6251 

6252 

6253 

625A 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 

6263 

626A 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

627A 

6275 

6276 

6277 

6278 

6279 

6280 

6281 

6282 

6283 

628A 

6285 

6286 

6287 

6288 

6289 

6290 

6291 

6292 

6293 
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^^21226 
021232 

02123A 
021 2A2 
021250 
021252 
021256 



021262 
021266 
021270 
021 27A 

021276 
021302 

021 30A 
021312 



010137 001202 
000A03 



013737 
032777 
001A67 
00A737 
10AA16 



001350 
1A0000 

02077A 



001202 
160062 



021260 000207 



013705 001350 
005205 

020577 16004^ 
001A55 

010537 001202 
10AA15 

017737 160030 001202 
10AA16 
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SHFTRT: SHIFT RIGHT ROUTINE 
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SEQ OIK 



•SBTTL CHKHE: 
.SBTTL CHKHEl 



CHECK FOR 'ERR'aR 
CHECK FOR 'ERR'OR 



.-CHKHE 

THIS ROUTINE CHECKS IF 'HE' OR 'ERR' BITS IN RKCS ARE SET. IF ANY OF THE 

TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, DS, AND DA ARE SAVED AND A 

RETURN IS HADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR' CALL. 

AT THE TIME OF ENTRY 'DRIVAD' CONTAINS THE DISK ADDRESS WHICH IS TO 

BE BROKEN DOWN INTO DRIVE *, CYLINDER. SURFACE AND SECTOR #. THIS INFORnATION 

IS SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET, 

RETURN IS HADE TO SKIP THE ERROR MESSAGE. 

CHKHE1 

THIS ROUTINE CHECKS IF 'HE' OR 'ERR' BITS IN RKCS ARE SET. IF ANY OF THE 
TWO BITS ARE SET, THE CONTENTS OF RKCS, ER, DS, AND DA ARE SAVED AND A 
RETURN IS HADE TO THE ERROR MESSAGE FOLLOWING THE 'JSR' CALL. 
AT THE TIME OF ENTRY R1 CONTAINS THE DISK ADDRESS WHICH IS TO BE BROKEN 
DOWN INTO DRIVE #. CYLINDER, SURFACE AND SECTOR #. THIS INFORMATION IS 
SAVED TO BE USED LATER FOR ERROR REPORTING. IF THE BITS ARE NOT SET, 
RETURN IS MADE TO SKIP THE ERROR MESSAGE. 



CHKHE 1: MOV 
BR 



CHKHE: 
CHEl: 



MOV 
BIT 
BEQ 
JSR 

BRKDAA 
RTS 



RI.SREGIO 
CHEl 

DRIV/D,SREG10 
flAOGOO.iRKCS 
CRETRN 
PC.GTARG 



PC 



.SAVE THE DISK ADRES 



SAVE THE DISK ADRES 

IS "HE* OR 'ERR' BIT SET? 

NO 

GET RKCS, ER, OS. DA 
GO TO 'BDAA' t BREAK CONTENTS 0 
SREGIO INTO DR*, CYL. SUR. SEC BITS 
RETURN TO THE ERROR MESSAGE 



021 31 A 000207 



.SBTTL CHKDA: CHECK IF RKDA INCREMENTED CORRECTLY 

CHKDA 

THIS ROUTINE CHECKS IF RKDA INCREMENTED CORRECTLY. IF RKDA INCREMENTED 
CORRECTLY RETURN IS MADE TO SKIP THE ERROR MESSAGE. 

IF RKDA DID NOT INCREMENT CORRECTLY, THE EXPECTED AND RECIEVED VALUES 
OF RKDA ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 
*JSR' CALL. 

RKDA SHOULD INCREMENT TO THIS 
AFTER DATA TRANSFER IS DONE 
DID RKDA INCREMENT CORRECTLY? 
IF YES, BRANCH 
IF NOT, REPORT ERROR 
GET EXPCTD RKDA 

GO TO 'BDAC I BREAK CONTENTS OF 
SREGIO INTO DR #, CYL , SUR. SEC BITS 
GET ACTUAL RKDA 

GO TO 'BDAA' ft BREAK CONTENTS OF 
SREGIO INTO DR #, CYL, SUR. SEC BITS 
RTS PC .RETURN TO THE ERROR MESSAGE 



CHKDA: 
CHKDA1 



MOV 
INC 
CMP 
BEQ 

MOV 

BRKDAO 

MOV 

BRKDAA 



DRIVAD,R5 
R5 

R5,aRKDA 
CRETRN 

RS, SREGIO 



aRKDA, SREGIO 
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OC T f 








OC TO 
































w JVC 


071 316 


005777 

WW Jiff 


16001 7 






001442 
















01 7737 


1 60004 




021 332 


017737 

W 1 r r J r 


160002 

1 wwwwC 






000207 

wwwC w ■ 




















6310 








6311 








6312 








6313 








6314 








6315 








6316 


021342 


005777 


157762 


6317 


021346 


001430 

WW 




6318 








6319 


021350 


004737 


021002 

WC 1 wwc 


6320 








6321 


021354 


000207 

W W W W W » 




6322 








6323 








6324 








6325 








6326 








6327 








6328 








6329 


021356 


005777 


1 57746 


6330 


021362 


001422 

WW 1 ^ c c 




6331 


021364 


013737 


001330 

WW I J J\J 


6332 


021 372 


01 7737 


157732 

1 ' ' ^C 


6333 


021400 


000207 

W W Wb W r 




6334 








6335 








6336 








6337 








6338 








6339 








6340 


021402 


022777 


000200 

w w w c w \ 


6341 


021410 


001407 




6342 


021412 


013737 


001332 


6343 


021420 


017737 


157706 


6344 


021426 


000207 




6345 








6346 


021430 


062716 


000002 


6347 


021434 


000207 




6348 








6349 









001162 
001164 



001162 
001164 
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CHKDA: CHECK IF RKDA INCREMENTED CORRECTLY 



.SBTTL CHKUC: CHECK IF RKUC OVERFLOWED 



SEQ 0115 



CHKUC 

THIS ROUTINE CHECKS IF RKUC OVERFLOUED TO 0. IF IT DID A RETURN IS HADE 
TO SKIP THE ERROR MESSAGE. IF NOT, THE CONTENTS OF RKUC AND RKDA ARE SAVED 
AND A RETURN IS HADE TO THE ERROR MESSAGE FOLLOUING THE 'JSR' CALL. 



CHKUC: 



TST 
BEQ 

MOV 
MOV 
RTS 



aRKUC 
CRETRN 

aRKUC. $REGO 
iRKDA.SREGl 
PC 



DID UORD COUNT OVERFLOU TO 0? 
IF YES. BRANCH 
IF NOT. ERROR 
GET RKUC 
GET RKDA 

RETURN TO THE ERROR MESSAGE 



.SBTTL CHKER: CHECK RKER CONTENTS 

CHKER 

THIS ROUTINE CHECKS IF ANY BIT IN RKER SET. IF NOT RETURN IS MADE TO SKIP 
THE ERROR MESSAGE. IF ANY BIT IS SET THE CONTENTS OF RKCS. RKER. RKDS ARE 
SAVED AND A RETURN IS HADE TO THE ERROR MESSAGE. 



CHKER: 



TST 
BEQ 

JSR 

RTS 



aRKER 
CRETRN 

PC.GT3RG 

PC 



DID ANY BIT IN RKER SET? 
NO, BRANCH 
YES, ERROR 

GO, GET RKCS, ER, DS 
; RETURN TO THE ERROR MESSAGE 



CHKE CLR 

THIS ROUTINE CHECKS THAT RKER IS CLEAR. IF NOT, THE CONTENTS OF RKER 
ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOUING THE "JSR' 
CALL. IF RKER IS CLEAR THE ERROR MESSAGE IS SKIPPED ON RETURN. 



CHKECLR: TST 
BEQ 
MOV 
MOV 
RTS 



aRKER 
CRETRN 
RKER,$REGO 
aRKER, SREG1 
PC 



ANY BIT IN RKER SET? 
NO 

GET ADRES OF RKER 
GET CONTENTS OF RKER 
RETURN TO THE ERROR MESSAGE 



15772? CHKCCLR: 

001162 
001164 



CRETRN: 



CHKCCLR 

THIS ROUTINE CHECKS THAT RKCS IS CLEAR. IF NOT. THE 
SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE. IF 
ERROR MESSAGE IS SKIPPED ON RETURN. 



CONTENTS OF RKCS ARE 
RKCS IS CLEAR THE 



: CMP 
BEQ 
MOV 
MOV 
RTS 

ADD 
RTS 



#200,aRKCS 

CRETRN 

RKCS,$REG0 

aRKCS.SREGl 

PC 

#2.(SP) 
PC 



IS RKCS CLEAR? 
YES 

SAVE ADRES OF RKCS 
SAVE THE CONTENT OF 
RETURN TO THE ERROR 



RKCS 
MESSAGE 



.SKIP ERROR MESSAGE ON 
: RE TURN 





CZRKKF, 


RK11 BASIC LOGIC 


Y n w w r 

CZRKKF 


• P1 1 


21-FEB-78 


08:51 


6350 








6351 








6352 








6353 








635A 








6355 








6356 








6357 








6358 








6359 








6360 


021436 


01 3777 


A A 4 V r A 

001350 


6361 


021444 


005037 


A A 4 7 ^ A 

001 366 


6362 


021450 


C52777 


AAA 4 A A 

000100 


6363 


021456 


001007 




6364 


021460 


005237 


AA4 7^ ^ 

001366 


6365 


021464 


AA4 9 74 

001371 




6366 


021466 


A 4 777 7 

01 7737 


4 C 7Z. 7/ 

1 57634 


6367 


021474 


AAA ^ A ^ 

000207 




6368 








6369 


021476 


062716 


A AAA A 

000002 


6370 








6371 


021502 


A A A A 7 

000^07 




6372 








6373 








6374 








6375 








6376 








6377 








6378 








6379 








6380 








6381 








6382 








6383 








638A 








6385 








6386 








6387 








6388 








6389 








6390 


021504 


AAC A77 

005037 


AA1 VZ./ 

001364 


6391 


021510 


AIT 777 

013777 


001550 


6392 


021516 


012777 


A A A A 4 C 

000015 


6393 


021524 


104414 




6394 








6395 








6396 








6397 








6398 








6399 


021 526 


Qbdfif 


A A A 4 AA 

000100 


6400 


021534 


AA 4 A4 T 

001013 




6401 


021536 


A 4 77 d. 

012746 


4 7 777A 

1 77770 


6402 


021542 


005216 




6403 


021544 


UU 1 0 




6404 


021546 


005726 




6405 


021550 


005237 


001364 
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157674 
157650 

001162 



157622 
157606 
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SEQ 0116 



.SBTTL TSTRUS: WAIT FOR R/U/S RDV ROUTINE 

TSTRUS 

THIS ROUTINE UAITS FOR R/U/S RDY TO SET. UNEN IT SETS, THE RETURN PC 
IS INCREMENTED SO THAT ON RETURN (TO THE MAIN PROGRAH) THE ERROR 
MESSAGE FOLLOUING THE 'JSR' CALL IS SKIPPED. IF R/U/S RDY DOES NOT SET 
THEN A RETURN IS HADE TO THE ERROR MESSAGE (FOLLOUING THE 'JSR' CALL). 
UAITING TIME IS APPROX. 1040 MS FOR 11/20, APPROX. 208 MS FOR 11/45 
CALL: JSR TSTRUS 



TSTRUS: MOV DRIVAD.SRKDA 

CLR TIMER 

1$: BIT flOO.iRKOS 

BNE 2% 

INC TIMER 

BNE IS 

MOV aRKDS,SREGO 

RTS PC 

2S: ADD *2,(SP) 

RTS PC 



ADRES THE DRIVE 

INITIALIZE COUNT 

DID R/U/S RDY SET? 

YES, BRANCH 

UAIT FOR R/U/S RDY 

ERROR IF IT'S NOT SET BY NOU 

GET RKDS 

EXIT (TO ERROR FOOLOUING 'JSR TSTRUS') 

ADJUST RETURN ADRES TO SKIP OVER 
ERROR (FOLLOUING 'JSR TSTRUS') 
EXIT 



.SBTTL DRESET: DRIVE RESET ROUTINE 

DRESET 

THIS ROUTINE DOES A DRIVE RESET ON THE DRIVE UHOOSE ADDRESS IS IN 

RKDA. MULTIPLE RETURN ADDRESSES FOR THIS ROUTINE ARE PROVIDED. 

IF THERE IS NO- ERROR (R/U/S RDY SETS UITHIN CERTAIN TIME) . THEN BEFORE 

EXITNG FROM THIS ROUTINE THE RETURN ADDRESS IS INCREMENTED BY 2, TO SKIP 

THE ERROR MESSAGE ON RETURN. IF THERE IS AN ERROR, THE 3 REGISTERS (CS,ER,DS) 

ARE STORED AND THEN A NORMAL EXIT IS MADE FROM THIS ROUTINE TO THE 

ERROR MESSAGE FOLLOUING THE CALL FOR THIS ROUTINE. 

CALL: JSR PC.DRESET 



DRESET: 



CLR 
MOV 
MOV 

CNT.RDY 



C0UNT1 

DRIVAD.aRKDA 
#15,aRKCS 



157572 1$: 



BIT 
BNE 
MOV 
INC 
BNE 
TST 
INC 



#100,aRKDS 
2% 

#-10, -(SP) 

(SP) 

.-2 

(SP)* 

COUNTl 



INITIALIZE THE COUNT 
ADRES THE DRIVE 
DRIVE RESET, GO 
THIS IS A CALL FOR 'CN.ROY' 
ROUTINE UHICH UAITS FOR CNT 
RDY TO SET. IF CNTRL RDY DOES 
NOT SET UITHIN 883 MS/ 11-20 
(176 MS FOR 11-45 UITH BIPOLAR) 
AN ERROR IS REPORTED 

;DID R/U/S RDY SET? 

.PUSH COUNT ON SP 
.•COUNT IT DOUN 

;POP UP SP 

:IF NOT UAIT 
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SEO 0117 



6406 

6407 

6408 

6409 

6410 

6411 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 



6441 
6442 
6443 
6444 
6445 
6446 
6447 
6448 
6449 
6450 
6451 
6452 
6453 
6454 
6455 
6456 
6457 
6458 
6459 
6460 
6461 



021554 
021556 
021562 
021 S64 
021570 



001364 
004737 
000402 
062716 
000207 



020774 
000002 



2S: 



BNE 

JSR 

BR 

ADD 

RTS 



1$ 

PC.GT4RG 
2$*4 
#2,aR6 
PC 



; WAITED LONG? 



.SBTTL TSTSIN: CHECK 'SIN' ROUTINE 

TSTSIN 

THIS ROUTINE CHECKS IF 'SIN' IS SET, IF IT IS SET A 

DRIVE RESET IS DONE TO CLEAR 'SIN' AND INITIALIZE POSITIONER. 

CALL: TST.SIN 

IF ON DOING DRIVE RESET R/U/S RDY DOES NOT SET A MESSAGE 

ERROR PC=XXXXXX IS GIVEN. 
XXXXXX=PC IN THE MAIN PROGRAM WHERE 'TST.SIN' CALL IS LOCATED. 



6425 


021572 


013777 


001350 


157540 


TSTSIN: 


nov 


DRIVAD.aRKDA 


.-ADRES THE DRIVE 


6426 


021600 


032777 


001000 


157520 




BIT 


t1000,aRKDS 


:IS SIN SET? 


6427 


021606 


001403 








BEQ 


IS 




6428 


021610 


004737 


021504 






JSR 


PC. DRESET 


;G0 DO DRIVE RESET, SIN SET 


6429 


021614 


000401 








BR 


2S 


: REPORT ERROR 


6430 


021616 


000002 






IS: 


RTI 






6431 


021620 


032777 


020000 


157312 


21: 


BIT 


#SWl3,aSWR 


.■INHIBIT TYPEOUT? 


6432 


021626 


001373 








BNE 


IS 


;IF YES. SKIP TYPEOUT 


6433 


021630 


104401 


021636 






TYPE 


.65S 


;;TYPE ASCIZ STRING 


6434 


021634 


000406 








BR 


64S 


;;GET OVER THE ASCIZ 


6435 










;;65S: 


.ASCIZ 


/ERROR PC= / 




6436 


021652 








64$: 








6437 


021652 


011646 








MOV 


(SP),-(SP) 
#-2.<SP) 




6438 


021654 


062716 


177776 






ADD 


;GET THE PC WHERE 'TST.SIN' 


6439 


021660 


104402 








TYPOC 




;G0 TYPE OUT PC 


6440 


021662 


000755 








BR 


IS 





.SBTTL DELAY: TIME DELAY ROUTINE * 

DELAY 

THIS ROUTINE PROVIDES A VARIABLE TIME DELAY. THE CALL FOR THIS 
ROUTINE IS AN ENCODED 'TRAP' INSTRUCTION. 

CALL: DELAY .H H IS ANY OCTAL NO. FROM 1 TO }77777 

THE DELAY PROVIDED IS 7.5N US (CONVERT N TO DECIMAL) FOR 11/20 
1.5N US FOR 11/45 

IF THE USER WANTS TO CHANGE THE DELAY TIME (EXMP: SHORTER DELAY TO 
GET A TIGHTER SCOPE LOOP) THE VARIABLE 'N' FOLLOWING 'DELAY' SHOULD 
BE CHANGED TO SUIT THE INDIVIDUAL NEED. 



021664 
021672 

021676 
021702 



017637 
062716 

005337 
001375 



000000 001366 
000002 

001366 



DELA.Y: 



IS: 



MOV 
ADD 

DEC 
BNE 



a(SP), TIMER 
#2.(SP) 

TIMER 
1S 



GET 'AMOUNT' (N) FOR WHICH 
DELAY IS TO BE PROVIDED 
ADJUST STACK POINTER TO SKIP OVER 
COUNT DOWN TO 0 



'N' 



«0-11-CZRK<cf 
CZRKKf .P11 
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SEQ 0118 



6A62 

6463 

6464 

6465 

6466 

6467 

6468 

6469 

6470 

6471 

6472 

6473 

6474 

6475 

6476 

6477 

6478 

64 79 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 

6491 

6492 

6493 

6494 

6495 

6496 

6497 

6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6S10 

6511 

6512 

6513 

65U 

6515 

6516 

6517 



021704 000002 



021742 
021 744 
021746 
021750 
021752 
021754 
021756 



RTI 



.SBTTL WAT. INT: 



.•RETURN TO MAIN PROGRAH 



WAIT FOR INTERRUPT ROUTINE 



WAT. INT 

THIS ROUTINE PROVIDES A VARIABLE TINE WAIT LOOP DURING WHICH AN INTERRUPT 
FRON RKII CAN OCCUR. THE CALL IS AN ENCODED 'TRAP' INSTRUCTION. 



CALL: 



VAT. INT ,M 



N IS ANY OCTAL NO. FRON 1 TO }77777 



WAIT LOOP TINE= APPROX. 7.5N US (CONVERT N TO DECINAL) FOR 11/20 
APPROX. 1.5N US FOR 11/45 

UPON ENTERING THE ROUTINE THE CPU PRIORITY IS DROPPED SO THAT 

RK11 CAN INTERRUPT. NOTE THAT WHEN RK11 INTERRUPTS THIS ROUTINE 

IS EXITED WITHOUT POPPING THE STACK. THIS POPPING IS DONE AFTER GETTING 

TO RKll INTERRUPT HANDLER. 

IF FOR ANY REASON THE WAIT LOOP TINE HAS TO BE CHANGED IT CAN BE DONE 
BY SINPLY CHANGING THE VARIABLE 'N' FOLLOWING THE 'WAT. INT'. 



021706 


017637 


000000 001366 


WAT INT: NOV 


a(SP), TIMER 


GET 'ANOUNT' (N) FOR WHICH 


021714 


062716 


000002 


ADD 


«2,(SP) 


■WAITING IS TO BE DONE 












;ADJUST STACK POINTER FOR CORRECT RETURN 


021720 


013746 


001400 


NOV 


RKPRI.-(SP) 


■DROP CPU PRIORITY SO THAT RKll CAN 


021724 


012746 


021732 


NOV 


#11, -(SP) 


■ INTERRUPT 


021730 


000002 




RTI 






021732 


005337 


001 366 


11: DEC 


TINER .WAIT FOR RKll TO INTERRUPT 


021736 


001375 




BNE 


11 














;IF INTERRUPT HAS NOT OCCURED BY NOW 












; RE TURN AND REPORT ERROR 


021740 


000002 




RTI 




;EXIT 



005000 
005001 
005200 
001376 
105201 
001374 
000207 



.-WATINE 

WATINE: CLR RO 

CLR R1 

IS: INC RO 

BNE It 

INCB R1 

BNE IS 

RTS PC 



.SBTTL CHKCRDY; 



CHECK CONTROL READY 



.CH.CROV 

THIS ROUTINE WAITS FOR THE CONTROL READY TO SET. IF THE CONTROL READY BIT 
DOES NOT SET WITHIN A CERTAIN TINE. THEN THE CONTENTS OF RKCS. RKER. RKDS 
AND RKDA ARE SAVED AND AN EXIT NADE TO THE ERROR NESSAGE FOLLOWING THE 
•JSR' CALL FOR THIS ROUTINE. 

IF CONTROL READY SETS THEN THE RETURN ADDRESS IS ADJUSTED TO SKIP THE 
ERROR NESSAGE ON RETURN. 



005037 001366 
105777 1573A2 
100A06 

005237 001366 
001372 

00A737 02077A 
000002 

062716 000002 
000002 
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6518 
6519 
6520 
6521 

6522 021760 

6523 021764 

6524 021770 

6525 021772 

6526 021776 

6527 022000 

6528 022004 
6529 

6530 022006 

6531 022012 
6532 

6533 
6534 
6535 
6536 
6537 
6538 
6539 
<'"40 
6541 
6542 
6543 
6544 
6545 
6546 
6547 
6548 
6549 
6550 
6551 
6552 
6553 
6554 
6555 
6556 
6557 
6558 

6559 022014 

6560 022022 

6561 022030 

6562 022032 

6563 022036 

6564 022042 

6565 022044 

6566 0<?2050 

6567 C22052 

6568 022060 

6569 022062 

6570 022064 

6571 022066 

6572 022072 
6573 



012777 
012737 
000402 
005037 
105777 
100435 
005237 
001372 
032777 
001026 
104401 
001245 
104401 
000403 



00000^ 
177500 

001170 
157270 

001170 

020000 



022074 
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SEO 0119 



CALL: 



CHKCRDY 
ERROR 



.RETURN 
: RE TURN 



HERE 
HERE 



IF 
If 



ERROR 
NO ERROR 



CH.CRDY: CLR TIMER 



IS: 



21: 



TSTB 
BHI 

INC 
BNE 

JSR 
RTI 

ADD 
RTI 



iRKCS 
21 

TIMER 
IS 

PC.GT4RG 



#2.(SP) 



.SBTTL CON. RESET: 



;CNTRL RDY SET? 
;YES 

:N0. UAIT 

.■SAVE RKCS. ER. DS. DA 



jADJUST RETURN ADDRESS TO 
.-SKIP ERROR MESSAGE ON RETURN 



CONTROL REST ROUTINE 



CON. RESET 

THIS ROUTINE ISSUES A CONTROL RESET AND WAITS ^OR 
THE 'CNTRL RDY' FLAG TO SET. WHEN THE FLAG SETS 
AN EXIT IS MADE OUT OF THE ROUTINE. IF 'CNTRL-RDY' 
DOES NOT SET WITHIN A CERTAIN TIME AN ERROR MESSAGE 

CNT ROY DIDN'T SET 

PC=XXXXXX RKCSsYYYYYY 
IS GIVEN. NOTE THAT XXXXXX IS THE PC WHERE 'CNT. RESET* OR 'CNT. RDY' 
IS CALLED. 

.CALL: CNT. RESET 



.SBTTL CNT. RDY; 



WAIT FOR CONTROL READY ROUTINE 



CN.RDY 

THIS ROUTINE WAITS 
SETS EXITS OUT. IF 



FOR THE CONTROL READY 
WITHIN A CERTAIN TIME 



BIT TO SET AND WHEN IT 
CNTRL RDY DOES 



NOT SET AN ERROR IS REPORTED. WAITING TIME IS 883 MS FOR 11/20 



RDY 





;175 MS 


FOR 11/45 WITH BIPOLAR 


MEMORY. 




;CALL: 


CNT. ROY 






.57310 


CN.RST: 


MOV 


fl.aRKCS 


.ISSUE A CONTROL RESET 


001 1 70 




MOV 


#-300,SREG3 


.-SET UP COUNT 






BR 


CN.ROY+4 


.SKIP OVER CN. 




CN.RDY: 


CLR 


SREG3 






IS: 


TSTB 


iRKCS 


;DIO CNTRL-RDY SET? 






BMI 


3S 


;YES. EXIT 






INC 


SREG3 


.-WAITED LONG? 






BNE 


IS 


:IF NOT. GO BAK i WAIT 


157060 


2S: 


BIT 


fSWl3,aSWR 


; INHIBIT TYPEOUT? 






BNE 


3S 


;ir YES, SKIP TYPEOUT 






TYPE 










MSG3 










TYPE 


.65S 


;;TYPE ASCIZ STRING 






BR 


64S 


::GET OVER THE ASCIZ 




;;65S: 


.ASCI2 


<15><12>/PC=/ 
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657A 

6575 

6576 

6577 

6578 

6579 

6580 

6581 

6582 

6583 

658A 

6585 

6586 

6587 

6588 

6589 

6590 

6591 

6592 

6593 

659A 

6595 

6596 

6597 

6598 

6599 

6600 

6601 

6602 

6603 

6604 

6605 

6606 

6607 

6608 

6609 

6610 

6611 

6612 

6613 

66U 

6615 

66 16 

6617 

6618 

6619 

6620 

6621 

6622 

6623 

6624 

6625 

6626 

6627 

6628 

6629 



022102 

022102 0116A6 

02210A 162716 

022110 10AA02 



022130 
022130 
0221 3A 



0177A6 
104402 



022136 000002 



022140 
022140 
022142 
022150 



022154 
022160 
022166 
022172 
022176 
022200 
022202 
022206 
022210 
022210 
022216 
022220 
022226 
022230 



104407 
032/77 
001111 



022152 000416 



013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 

032777 
001404 
127737 
001462 
105737 



000002 



022112 104401 022120 
022116 000404 



157176 



000004 

022200 000004 

177060 

000004 



000004 

000400 156722 
156714 001102 
001103 



CNT.RDV: 
64S: 



WAIT FOR CONTROL READY ROUTINE 



SEQ 0120 



;;67$: 
66S: 



3S: 



MOV 

SUB 
TYPOC 

TYPE 
BR 

.ASCIZ 

nov 

TYPOC 
RTI 



(SP),-(SP) 
#2.(SP) 



.67S 
66S 

/ RKCS=/ 
aRKCS,-(SP) 



GO TYPE PC IN THE MAIN PROGRAM, 
WHERE ERROR OCCURRED 
;TYPE ASCIZ STRING 
:GET OVER THE ASCIZ 



;GET RKCS 
;G0 TYPE IT 



RETURN FROM THIS 
ROUTINE TO THE MAIN 
PROGRAM 



THIS PART OF THE PROGRAM CONTAINS THE COMMON ROUTINES CALLED 
FROM THE SYSMAC.SML PACKAGE 



.SBTTL SCOPE HANDLER ROUTINE 



•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

•AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0» 

•AND LOAD THE ERROR FLAG (SERFL6) INTO 0ISPLAY<15:08> 

*THE SyiTCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•Syi4=1 LOOP ON TEST 

•Syil^l INHIBIT ITERATIONS 

•Sy09:l LOOP ON ERROR 

•SU08=1 LOOP ON TEST IN SyR<7:0> 

•CALL 

♦ SCOPE ;;SC0PE=10T 



040000 156770 1S 



SSCOPE: 

CKSyR 
BIT 
BNE 

;ffm«START OF 
SXTSTR: BR 



MOV 
MOV 
TST 
MOV 
BR 

51: CMP 
NOV 
BR 

6t::#«f»#EN0 OF 

BIT 
BEO 
CMPB 
BEO 

2$: TSTB 



ffBITU.asyR 
SOVER 
CODE FOR THE XOR 
6$ 

afERRVEC,-(SP) 
f5$,afERRVEC 
if 177060 
(SP)^,afERRVEC 
SSVLAD 
(SP)*.(SP)+ 
(SP)^,afERRVEC 
7$ 

CODE FOR THE XOR 
ffBITOS.aSUR 
2S 

asyR,$TSTNM 
tOVER 
SERFLG 



;TEST FOR CHANGE IN SOFT-SyR 
;LOOP ON PRESENT TEST? 
;YES IF Syi4=l 
TESTERftm 
:IF RUNNING ON THE "XOR" TESTER CHANGE 
:THIS INSTRUCTION TO A "NOP" (N0P=240) 
:SAVE THE CONTENTS OF THE ERROR VECTOR 
;SET FOR TIMEOUT 
;TIME OUT ON XOR? 
;RESTORE THE ERROR VECTOR 
;G0 TO THE NEXT TEST 
.•CLEAR THE STACK AFTER A TIME OUT 
; RE STORE THE ERROR VECTOR 
;LOOP ON THE PRESENT TEST 
TESTERmf 

TEST? 



;LOOP ON SPEC 
;BR IF NO 
;0N THE RIGHT TEST? 
;BR IF YES 

:HAS AN ERROR OCCURRED? 



SWR<7:0> 
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6630 

6631 

6632 

6633 

6634 

6635 

6636 

6637 

6638 

6639 

66A0 

6641 

6642 

6643 

6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 

6660 

6661 

6662 

6663 

6664 

6665 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6680 

6681 

6682 

6683 

6684 

6685 



022234 
022236 
022244 
022246 
022254 
022256 
022264 
022266 
022272 
022276 
022300 
022306 
022310 
022314 
022316 
022322 
022330 
022332 
022340 
022346 
022352 
022356 
02236^ 
022366 
022374 
022402 
022406 
022410 



022412 
022414 
022420 
022i,22 
022430 

022434 
022442 
022444 
022452 

022454 
022460 
022466 



001421 
123737 
101015 
032777 
001404 
013737 
000443 
105037 
005037 
000415 
032777 
001011 
005737 
001406 
005237 
023737 
002021 
012737 
013737 
105237 
011637 
011637 
005037 
112737 
013777 
013716 
000002 
000050 



104407 
105237 
001 775 
013777 
005237 

052777 
001404 
025727 
101053 

011637 
162737 
117737 



001115 

001000 

001110 

001103 
001206 



001100 

001104 
001206 

000001 
022410 
001102 
001106 
001110 
001210 
000001 
001102 
001106 



001103 

001102 
001112 

000100 

001112 



001116 
000002 
156424 



001103 
1 56664 
001106 



004000 156632 



001104 

001104 
001206 



001115 
156540 



156512 

156476 
000005 



001116 
001114 
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RACV11 


30A(1052) 21-FEB-78 08:58 PAGE 122 




HANDLER 


ROUT INE 






BEQ 




:BR IF NO 




CNPB 


>ERnAX,»ERFLG 


;HAX. ERRORS FOR THIS TEST OCCURRED? 




& Li f 

BHI 


J* 


- B B r r fti A 

; BR IF NO 




BIT 


MB t TAA ^CllB 

fBITOV.iSWR 


:LOOP ON ERROR? 




OCA 

BEQ 


4» 


. B B ff r 

:BR IF NO 


7$: 




»LrcRR,«LPADR 


;SET LOOP ADDRESS TO LAST SCOPE 




BR 


»OvcR 




4S: 


r 1 BB 

CLRB 


»cRF Lu 


■ 7CBn TUC PBBAB fl A 

;ZcRO THE ERROR FLAG 




CLR 


C T r MIC c 

•T I^c5 


;CLcAR THE NUflBER Or ITERATIONS TO HAKE 




D B 

BR 


1 9 


;E5CAPE TO THE NEXT TEST 


3S: 


D f T 

BIT 


f Bl T 1 1 ,iSWR 


.'INHIBIT ITERATIONS? 




Que 

BNc 


1 9 


;BR IF YES 




T C T 

T 5 T 


CD A C C 


, Ir f-lRil rA5o Or rROuRAH 




BcO 


1 9 


fULJTDf T TTCDATTnuC 

; INHIBIT ITERATIONS 




fur 


c t r uT 


;INCRcncNT ITERATION COUNT 




mD 
CNr 


c T t ■■c c ttf ruT 
»TincS,»ICNT 


;CHcCK THE NUnSER Or ITERATIONS nADE 




Buc 


»OVcR 


':BR Ir nORE ITERATION REQUIRED 


IS: 


■■nil 

fluv 


#1 c f ruT 
f 1 ,>ICNI 


' ;REINI TIALIZE THE ITERATION COUNTER 




nUV 


ciavruT CTmcc 
9nXl,N 1 ,9\ Into 


; 9C I NUnocR OF IlEnATIONS TO DO 


SSVLAD 


r u r D 


C T C Tftiii 


■ ■rnilUT TCCT UII^AfiCAC 

;;COUNr TEST NUnSERS 




NUV 


/CD\ CI DAI\B 

\ 5r J ,9LrADR 


• ■CAlfC CrADC 1 A AD A n^DC C C 

; : SAVE SCOPE LOOP ADDRESS 




MfWI 


/ C D \ CI DC DD 

( 5r ) ,»LrcRR 


■ aCAlfC CDDAfi 1 AAD Aft^DCCC 

; SAVc ERROR LOOP ADDRESS 




CI D 

CLR 


CC Cr ADC 


» aTl CAD TUC CCrADC C DA^^ CDDAD AINISDCCC 

;CLcAR THc cSCArc rROn ERROR ADDRESS 




novB 




> bAAII V Al 1 AU AAIC / 1 \ CDDAD AAJ AlCVT TCCT 

;;ONLT ALLOW ONE(T^ ERROR ON NEXT TEST 


SOVER: 


nov 


STSTNH.aOISPLAY 


; .-DISPLAY TEST NUMBER 




nov 


$LPADR,(SP) 


;: FUDGE RETURN ADDRESS 




RT 1 




' 'FIXES PS 


SnXCNT 


: 50 




;:nAX. NUMBER OF ITERATIONS 


.SBTTL 


ERROR 


HANDLER ROUTINE 





SEQ 0121 



.••SW15 = 1 
.-♦SU13=1 
.••SU10=1 
.••SU09=1 
.•♦SU12=1 
.••SW06=1 
.■•GO TO 

SERROR: 
71: 



IS: 



HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
TESTING ON SinULATOR 
LOOP ON ERROR 

CYCLE ON ERROR TO PREVIOUS 'SCOPE' 

DROP DRIVE AFTER HAXinUH (ALLOWABLE) ERRORS ON THE DRIVE 
SERRTYP ON ERROR 



6S: 



CKSWR 




.•CHECK FOR SOFTWARE SWITCH REGISTER REQUEST 


INCB 


SERFLG 


.-SET THE ERROR FLAG 


BEQ 


7S 


;DON'T LET THE FLAG GO TO ZERO 


NOV 


STSTNn.aOISPLAY 


.■DISPLAY TEST NUMBER AND ERROR FLAG 


INC 


SERTTL 


.■COUNT THE NUMBER OF ERRORS 


BIT 


#BIT6.aSWR 


;OESELECT DRIVE SW SET? 


BEQ 


61 


:N0 


CHP 


SERTTL. #5 


:NORE THAN 5 ERRORS ON THIS DRIVE? 


BHI 


8S 


;YES, DESELCT THE DRIVE 


NOV 


(SP),SERRPC 


:GET ADDRESS OF ERROR INSTRUCTION 


SUB 


f2.SERRPC 




NOVB 


aSERRPCSITENB 


.-STRIP AND SAVE THE ERROR I TEN CODE 
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SEQ 0122 



OOOO 




MjC III 


A30000 

Uc vvUU 


1 S64X6 
1 JOI jO 




Rt T 
Dl 1 








ono 1 


n??sn? 

UCC JVC 


vv 1 vvH 










3* 

C V 




•^KIP TYPFOIITS 

fOIMr lire W 1 0 


OOOO 


n??sn4 


AAA 7»7 

UVH f J ' 


0337^4 

Ucc f JH 






J On 


pr attFRBTVP 




•GO TO II^FR FRBDR ROUT IMF 


OOOt 


n??sin 




001 31 ^ 
vU 1 c 1 J 






T VPP 

1 I rC 


a#4? a#46 

V *t c # to 






OO TV 




VC J 1 Jf 


000049 


000046 








•ARF UF IN ATTII AllTQ MODF') 


OOt I 


o??s?? 

vcc ^cc 


00140^ 








DC U 


♦ 10 




• VFS HAI T ON FRRQR 


OOtC 




nns777 

vv3 Iff 


1 S6410 






f O 1 






• MAI T OM FRROR^ 


OOt J 


n??s^o 


1 vvUvc 








RPI 

Dr L 


J9 




•SKIP IF CQNTIMUF 

fWlMr ir V Vl I A live 


ftML 

OOT*t 


rt??SX? 

VCC ^ JC 


nonnoo 








UAI T 






• HAI T ON FRRQR > 
« n^L I Vn ennvn ■ 


OU~ J 




104407 














•THFCK FOR SOFTUARF SUITCH RFGIATFR RFOllFST 


UOTO 


vcc ^.^O 


0^3777 

\JDC Iff 


01 OOOO 

V 1 WW 


1 ^6^74 

1 ^O J » 


IS ■ 


R r T 

D 1 1 






•SU 1? SFT' 

« 1 C I ■ 


OU T f 


0??^44 

vcc JHH 


001407 

Vv 1 VC 








DC w 


. *6 




•NO BRANCH 


OO 70 


vC c J^O 


01 ^716 


001 106 

vv 1 1 VO 






MOW 

no w 


il PADR (SP) 

vL.rrti/n^ \ jr / 




•ADJUST RFTURN ADRFS FDR SUl? 

frtvwWwi ntiwniv rti/nL%> ron jwic 


OO #7 


n??ss? 

Ucc ^ .^c 


yjJC f r r 


001000 
Vv 1 VvU 


1 S6^60 

1 JOV 




R 1 T 


tSU09 asuR 




•t OOP ON FRROR SUITCH SFT^ 


O f vw 


vc c Jov 


nni top 

Vv 1 "tvc 








RFO 


41 




'BR IF NO 


A7m 

O I U 1 


UcC JOC 


\J 1 J f 1 o 


001 1 1 D 

W 1 1 1 V 






HOW 
nw V 


tl PFRR (SP) 




•FdDGF RFTURN FOR 1 DOPING 

g f ovwb nw I wnn r wn Lwwr inw 


O r vc 


n??S66 

vc C JOO 


V V J f J f 


OQ1?10 

Vw 1 C 1 V 




■t* • 


TST 


tFSr APF 




•CHFCK FOR AN FSCAPF ADDRFSS 




0??S7? 
vcc 1^ * c 


W 1 "t Vc 








RFO 


5$ 




; BR IF NONE 


6704 


0??S74 

OC C J f ^ 


01 ^71 A 


001210 

VV 1 C 1 V 






no v 


IFSCAPE (SP) 




•FUDGE RFTURN ADDRESS FOR ESCAPE 


6705 


0??600 
uccow 


00000 P 

VVwVVC 






5J- 


RT I 

nil 






-RETURN 


6706 




















6707 


05360? 


005737 

V V J 1 J 1 


001434 




O* • 


TST 

1 J 1 


T56FLG 




-IF EROR WAS IN LAST TEST (POLL) 


6708 

U ' WO 


















•DROP ALL THE DRIVES 


o » w~ 


0??606 

vcc WVO 


001407 

vv 1 V f 








RFQ 


■ w* 






w r 1 U 


Q??610 

UCCO 1 V 


1 04401 


001^0^ 

WW 1 JW J 






1 I r C 


MSGS 






O r 1 * 


0??614 

VCCO 1 


00S037 

vv J V J f 


001412 

WW 1 "t 1 c 








DRI WS 






671? 


0??6?0 

VC COC w 


0??6?6 

VCCOCO 








CNP 


(SP)4' (SP)« 






671 5 


0??6?? 

VC COC c 


000137 

VVV 1 J * 


020652 

VC VO J c 






JflP 


SEOP 






6714 


0??6?6 
vccoco 


01 3746 

V 1 ^ ' t V 


001 354 

V V 1 J ^"t 




10S- 


no v 


DRVPTR -(SP) 




•DROP THE DRIVE FROM THE 


671 5 


0??65? 

VC C W JC 


16?716 

1 VC ' ( u 


000002 






SUB 

w VD 


#2 (SP) 




•SELECTION LIST 


6716 


0??636 

VCCO^V 


013746 


001350 






MOV 

n w w 


DRIVAD -(SP) 




•DRIVE ADDR TO STACK 

fi/riATk ni/i/n iw «firtv^ 


6717 


0??64? 

VCC W^C 


004737 

V V~ f J 1 


021200 

V C 1 C V V 






JSR 

^ J n 


PC SHFTRT 




•RIGHT JUSTIFY 


6718 

Or 1 O 


022646 

VCCOCO 


04?716 

V^C ' I o 


000001 

www I 






BIC 


f1 (R6) 




;nAKE EVEN 


6719 


022652 

VCC V^C 


062716 

VO C ' 1 o 


001414 






ADD 


#DRIVO (SP) 




•POINTS TO TABLE FOR EVEN DRIVE 


67?0 

O ' C V 


022656 

VC CO ^O 


042776 

V"tC 1 1 \J 


100000 

1 www 


000000 

www 




D 1 % 


#BIT15 a(R6) 




-TEST REMAINING DRIVE AS RK05E 

f ikwi nLnrtAiAiw vnA*L rt«f rmw^L 


67?1 

O f C I 


022664 

VC COO^ 


062716 

VOC 1 " o 


00000? 

V vv wc 






ADD 


#2 (R6) 




•POINT TO ODD 


67?? 

O ' c c 


022670 

VC CO f V 


042736 

V~C ' JW 


100000 

' vw vv 






RK 


fRijis a(SP)t 




;TEST AS R(C-05E 


672? 


022674 

VC C U ' ~ 


012736 


010000 






nov 


#BIT12 a(SP)t 




'INDICATE THIS DRIVE DROPPED 


67?4 


022700 

veer w 


104401 


001272 






TYPE 


,NSG4 






6725 

O r C ^ 


022704 

VC C ' 


013746 


'J01350 






MOV 

nw » 


DRIVAD -(R6) 




'PUSH DRIVE # ON STACK 


6726 

O f CO 


022710 

VC C ' 1 V 


004737 

V V~ 1 J 1 


021200 

VC ■ C W V 






JSR 


PC SHFTRT 




'SHIFT IT BEFORE TYPING 


67?7 

O f C r 


022714 

VC C » It 


104407 

1 vt t v» 








TVPOC 






'TYPE OUT DRIVE # 

0 1 I r L WW 1 l/rt A v k •* 


6728 


022716 

VCfc * ■ w 


1044f t 

1 Wt t V 1 


001315 






TYPE 


HSG6 






67?9 


022722 

VCC* c c 


005337 


001412 






DEC 


DRI VS 




-DECREMENT # OF DRIVES PRESNT 


6730 


022726 


02262^ 






9t: 


CMP 


(SP)», (SP)* 




.'RESTORE STACK 


67^1 

O ' J 1 


vcc • jV 


0001 X,' 

vvU 1 


fl?fl0?6 
vC vvcO 






jnp 


BTEOP 




:G0 BACK TO THE END OF PROGRM 


673? 


















.-LINKAGE. 


6733 




















6734 










.S8TTL 


ERROR 


MESSAGE TVPEOUT 


ROUTINE 




6735 




















6736 










***************************************************************** 


6737 










.••THIS 


ROUTINE 


USES THE "ITEM 


CONTROL 


BYTE" (SITEMB) TO DETERMINE WHICH 


6738 










;«ERROR 


IS TO 


BE REPORTED. IT 


THEN OBTAINS, FROM THE "ERROR TABLE (SERRTB), 


6739 










;*AND REPORTS 


THE APPROPRIATE 


INFORMATION CONCERNING THE ERROR. 


6740 




















6741 


022734 








SERRTYP 











M0-11-CZRKKF . RK11 BASIC LOGIC TEST 2 
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G 10 

MACrn 30A(1052) 21-fEB-78 08:58 
ERROR MESSAGE TYPEOUT ROUTINE 



PAGE 12A 



SEC 0125 



O ' He 


Ucc 1 JH 


1 (\LL(\^ 

1 UHHU 1 


uu IC \ 3 




TV DC 
1 I rc 


, 9y.nL' 




Ucc ' HU 


U 1 UUHO 






nuv 


BO - r CP > 

nU . ~ V jr / 


f\7LL 


Ucc ' He 
ucc ' HH 


UU jUUU 






L L n 


BO 

nU 




1 Jji uu 


001 1 1 A 
uu 1 1 1 H 




RICH 
D 1 jD 


ajtlTFMR BO 
9w9 1 1 CnD# nU 


O 1 Ho 


Ucc 1 3U 


UU 1 UUH 






BIlC 


1 • 
1 • 
















D f HO 


Ucc 1 3c 


U 1 Jf HO 


001 1 1 A 

uu 1 1 1 D 




nuv 


tFBBPr >fCB) 


D f H T 














V f J\J 


Uc c r -^O 


I UHHUC 






T vPor 




67S1 


vC C ' Ow 


UvV/HCO 






RR 

On 


O 9 


675? 


02276? 
UCC r oc 


OOS^OO 

VV J JVV 




1 9 • 


1/ L L 


RO 


67S^ 

o r J J 


WC C f DH 


wo JVV 






A^l 


RO 

nU 


6754 


wC c r WW 


WWD JVV 








RO 


6755 


0??770 

vc c ' r V 


006^00 

WWO JwW 






« jL 


RO 

n U 


6756 


0??77? 

VCC 1 f ^ 


062700 

VWC ' WW 


00144? 

W 1 HHC 




ADO 


irlFRRTR RO 


6757 


02?776 

vC C ' ' w 


01?Q37 

w 1 C V J r 


02^006 

WC ^ WW w 




MOU 

nu V 


(R0)« ?i 

\ nv f ^ 0 C 9 


6758 


0?300? 


WW 1 w"* 






DC U 




6759 


0?3004 

vC J W\/"t 


104401 






T VPF 




6760 


023006 


000000 

wwwwww 




C 9 ' 


• won V 


0 

w 


6761 


0?3010 

vC 1 v 


104401 

1 W^ ~ W 1 


00121 3 

WW 1 C 1 ^ 




T VPF 




6762 


0?3014 

WC 1 ^ 


012037 

w 1 c w J r 


023024 




MOU 

nw ¥ 




6763 


0?3020 

WC ^wc w 


001404 

WW 1 ~ w ~ 






RFO 


SI 


6764 


02302? 

WC JWC c 


104401 






T YPF 




6765 


023024 

WC ^wc~ 


000000 

WWWWWW 








0 


6766 


023026 

WC ^wc w 


104401 

1 W^ ^ W 1 


00121 3 

WW 1 C 1 J 




T VPF 

1 f re 


tfRl F 


6767 

W r w r 


023032 

WC ^W JC 


01 1000 

w I I www 




51 ■ 


NOW 


(RO) RO 

\ n w / « n w 


6768 

W > WW 


023034 

WC 


001004 

WW 1 ww~ 






SMF 


7$ 


6769 

W ' W T 


023036 

WC ^w^w 


012600 

W I cwww 




61 - 


HOW 

nw • 


(SP)f RO 


6770 

W f • w 


023040 

WC ^w~ w 


104401 


001213 

WW 1 c ■ ^ 




TYPE 

1 • f c 


ICRI f 


6771 


023044 

WC JW^ ~ 


000207 

WWWC W r 






RTS 

n 1 


pr 


6772 


023046 

WC J v~ w 






71 ■ 






6773 


023046 

WC -/ w~ w 


01 3046 

W 1 -» V ~ w 






MOV 




6774 


0230S0 

WC ^W JV 


104402 

1 W~~ WC 






TVPOf 

1 1 r WL 




6775 


023052 


005710 






TST 


(RO) 


6776 


023054 


001770 






BEQ 


6S 


6777 


023056 


1044C1 


023064 




TYPE 


.81 


6778 


023062 


000771 






BR 


7$ 


6779 


023064 


020040 


000 


8$: 


.ASCIZ 


/ / 


6780 




023070 






.EVEN 





6781 
6782 
6783 
6784 
6785 
6786 
6787 
6788 
6789 
6790 
6791 
6792 
6793 
6794 
6795 
6796 
6797 



SBTTL TYPE ROUTINE 



"CARRIAGE RETURN" I "LINE FEED" 
SAVE RO 

PICKUP THE ITEM INDEX 

IF ITEM NUMBER IS ZERO. JUST 
TYPE THE PC OF THE ERROR 
SAVE lERRPC FOR TYPEOUT 
ERROR ADDRESS 

GO TYPE— OCTAL ASCIKALL DIGITS) 
GET OUT 

ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



FORM TABLE POINTER 

PICKUP "ERROR MESSAGE" POINTER 

SKIP TYPEOUT IF NO POINTER 

TYPE THE "ERROR MESSAGE" 

"ERROR MESSAGE" POINTER GOES HERE 

"CARRIAGE RETURN" K "LINE FEED" 

PICKUP "DATA HEADER" POINTER 

SKIP TYPEOUT IF 0 

TYPE THE "DATA HEADER" 

"DATA HEADER" POINTER GOES HERE 

"CARRIAGE RETURN" t "LINE FEED" 

PICKUP "DATA TABLE" POINTER 

GO TYPE THE DATA 

RESTORE RO 

"CARRIAGE RETURN" I "LINE FEED" 
RETURN 

SAVE a(RO)» FOR TYPEOUT 

60 TYPE—OCTAL ASCIKALL DIGITS) 

IS THERE ANOTHER NUMBER? 

BR IF NO 

TYPE TW0(2) SPACES 
LOOP 

TW0(2) SPACES 



•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



•N0TE1 
•N0TE2 
•N0TE3 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



•CALL: 

•1) USING A TRAP INSTRUCTION 

• TYPE .MESAOR 
•OR 

• TYPE 

• MESADR 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



H 10 



D-n- 


CZRKKF . 


RKll BASIC LOGIC 


TEST 2 


NACV11 


50A{1052) 21-FEB-78 


4 n K Ik r 




T 1 _r c n_7D 
C l-f CO"f 0 


Uo:3l 




TYPE ROUTINE 




O » TO 
















D f T T 


03)070 


1 U3 J f 


nni 15 7 




STVPE: 


TSTB 


• T DC 1 r 




0?)074 










BPL 


1 9 




0?)076 


oonnoo 








HALT 




680? 


0?)100 
ue J 1 WW 










BR 


t* 




0?)10? 


01 noA A 






1$: 


NOV 


DO . / CD t 




0?)104 




(lUUUUc 






nov 


a 3 / CD \ DO 




fl?)1 10 








2%: 


NOVB 


10(\ \ « - f CD ) 
InU^'.Vjr/ 


OQVW 


0?)11? 


noi noc 








BNE 




6807 


0?)1 1 4 


00S75/i 
UU J ' CO 








TST 


f CD W 




0?)1 1 6 


01 3/>00 






60S: 


MOV 


/ CD \ « DO 
V ar / ▼ , KU 




0?)1 ?0 


0A?71 A 


000003 




3S: 


ADD 


ir3 /CD) 
»c « V 5r ; 


6810 


0?)1?4 

we J 1 e*t 


000003 
UUUUUc 








RTI 






we J * cv 


1 3571 
1 cc ' 1 0 


00001 1 




4S: 


CHPB 


• u T / CD ) 


681? 


wC J I jC 


OOI^TO 








BEQ 




681 ^ 

WW I J 


we J 1 


1 3371 A 


000300 
uUUcUU 






CNPB 


jir Qi r / CD ) 


WW 1 




001 OOA 








BNE 


c* 
3» 


WW 1 J 


Ue J ■ *te 


n0573A 
UU3 r CO 








TST 


f CP w 


WW 1 w 


0?)144 

we J 1 


1 O^^OI 








TYPE 




681 7 

WW 1 r 


we .J 1 **w 


001 31 ) 








SCRLF 




6818 

WW ■ w 


0?)1 50 
we J 1 Jv 


1 0S0T7 


03)^0^ 
Uc j3Uh 






CLRB 




6819 

WW 1 T 


0?)1 54 


0007S^ 
UUU I J J 








BR 


3« 

C9 


68?0 

woe V 


0?)1 56 

we J * Jv 


00^7^7 


Uc JcSU 




5$: 


JSR 


or CTvPFr 

r I. , • 1 I r CL 


68? 1 

woe 1 


0?)16? 

we -J 1 we 


1 3^73A 

1 CJI CO 


001 1 
UU 1 1 70 




6S: 


CNPB 


• c r 1 1 r CCD ) « 


68?? 
woe e 


we J 1 WW 


001 7S0 
UU 1 3 jU 








BNE 


C» 


68?^ 


We J 1 f w 


01 X7Lt^ 

U 1 Jf HO 


001 1 






NOV 


Ctllll 1 • f CD \ 


6874 
















68?S 

woe J 


we J 1 f 


1 U J jOo 


000001 
UUUUU 1 




71: 


DECB 


1 rcDi 


68?6 

woe w 


0?)?00 
we Je WW 


003770 
UUc f f U 








BLT 


O* 


68?7 

woe 1 


0?)?0? 
we je we 


0047)7 

UUH » J » 


03)340 






JSR 


DT tTVPPr 


68?8 

wwe w 


0?)?06 

we je WW 


1 0S))7 

1 \JJJJ r 


03))0A 
Uc J jUh 






DECB 


• LlnNLIV 1 


68?9 

wwe 7 


0?)?1? 


000770 
Uwvr ru 








BR 


7« 


68^0 
















68^1 

WO J 1 










.•HORIZONTAL TAB 


DonrcccnD 


68^? 

oo je 
















68^^ 


0?)?14 
we je 1 ** 


1 1 571 A 
1 1 c r 1 O 


0000^0 
UUUUhU 




8S: 


NOVB 


M ' f CD) 


68^4 

WO J"t 


0?)??0 
we jcc\j 


00^7)7 
UUS 1 jr 


03)340 

Uc JC*»U 




9$: 


JSR 


or CTvDcr 

rV. » • 1 T rCL 


68^S 

WO J J 


0?)??4 
we je e** 


1 )37)7 
1 Jc f Jf 


000007 


uc J JwH 




BITS 


j7 cruADrkiT 


68^6 

WW JW 


0?)?)? 

we ije ^e 


001 )73 

UU 1 J r c 








BNE 


Ot 
T» 


68)7 

WW J ' 


0?)?)4 
we M^e j*t 


0n57?6 

UU J f CO 








TST 


/CD W 


68)8 

WW J%0 


02)2)6 

we ^e ^w 


000734 
UUU ' c*» 








BR 


c* 


68)9 


02)240 
we je*tw 


105777 


1 55704 

IJJi UH 




ITYPEC: 


TSTB 


aCTDC 


6840 

ww^w 


02)244 

we je^^ 


100)75 








BPL 


• 1 IrC t 


6841 

WO^ 1 


0?)?46 

we «re ~w 


1 16677 

1 1 OO r r 


000003 

UUUUUc 


1 55676 




NOVB 


3/CD) atTDB 


684? 

ww"f e 


0?)?54 

we jc 


1??766 

1 cc f WW 


00001 5 
UUUU 1 J 


000002 
WW WW we 




CNPB 




684) 

W W^ -J 


WL «rL WL 


001 00) 

UU 1 UU3 








BNE 


1 • 

1 a 


UOf •» 


0?)?64 
we jew** 


1050)7 

1 u jUj' 


03'^)0i 

Uc J JU*" 






CLRB 




684 S 

wO"t J 


0?)?70 
we je f w 


000406 








BR 


CT vPE y 
• 1 T re » 


6846 

WW^W 


02)272 

we ^e r e 


1 32766 

1 cc 1 OO 


00001 3 
UUUU 1 c 


00000? 
wwwwwe 


1S: 


CNPB 


ifl r 3 f CD) 


6847 


02))00 
we jjw 


00140? 

UU 1 HUt 








BEQ 




6848 

WO^O 


02)502 

we J ^we 


105227 

1 U JCC r 








INCB 


f pr w 


6849 

WW^ 7 


02))04 

we J jw~ 


000000 

UvvvvU 






SCHARCNT:.UORD 


U 


6850 

WW 


023306 

we jjvw 


000207 






STYPEX: 


RTS 


PC 


6851 
















6852 
















6853 










.SBTTL 


CONVERT 


BINARY TO DE 



58 PAGE 125 



SEO 0124 



;IS THERE A TERMINAL? 
;BR IF YES 

.-HALT HERE IF NO TERMiNAL 

;LEAVE 

;SAVE RO 

:GET ADDRESS OF ASCiZ STRING 

;PUSH CHARACTER TO BE TYPED ONTO STACK 

;BR IF IT ISN'T THE TERNiNATOR 

;IF TERMINATOR POP IT OFF THE STACK 

:RESTORE RO 

;ADJUST RETURN PC 

.■RETURN 

:BRANCH IF <HT> 

:BRANCH IF NOT <CRLF> 

;POP <CR><LF> EOUIV 
.•TYPE A CR AND LF 

;CLEAR CHARACTER COUNT 

;GET NEXT CHARACTER 

;G0 TYPE THIS CHARACTER 

;IS IT TINE FOR FILLER CHARS.? 

:IF NO 60 GET NEXT CHAR. 

:GET « OF FILLER CHARS. NEEDED 

.•AND THE NULL CHAR. 

.•DOES A NULL NEED TO BE TYPED? 

;BR IF NO— GO POP THE NULL OFF OF STACK 

;G0 TYPE A NULL 

:D0 NOT COUNT AS A COUNT 

.-LOOP 



REPLACE TAB WITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 

GET NEXT CHARACTER 

WAIT UNTIL PRINTER IS READY 

LOAD CHAR TO BE TYPED INTO DATA REG. 
IS CHARACTER A CARRIAGE RETURN? 
BRANCH IF NO 

YES— CLEAR CHARACTER COUNT 
EXIT 

IS CHARACTER A LINE FEED? 
BRANCH IF YES 

COUNT THE CHARACTER 
CHARACTER COUNT STORAGE 



AND TYPE ROUTINE 



MD-11-CZRKKF . RK11 BASIC LOGIC TEST 2 
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HACV11 50A(105?) 21-FEB-78 08:58 PAGE 126 
CONVERT BINARY TO OECINAL AND TYPE ROUTINE 



SEO 0125 





















68S7 






wO JO 






OO J 7 






6860 






6861 






686? 






686^ 






6864 






6865 


0?^^10 

vC JJ*\J 




6866 




01 n046 


wow r 




w I V 1 "tw 


6868 




010246 

W 1 WC"t w 


6869 


023316 


010^46 

W 1 V J"»W 


6870 


023320 


010546 

V ■ V 


6871 


0233?? 


012746 
VIC* ■•w 


6872 


023326 


016605 

V 1 WWV J 


6873 


023332 

VC J -J^ 


100004 

1 VVVV^ 


6874 


0P3334 

VC J JJ^ 


00S40S 

VV J"t W J 


6875 


023336 

V C J -J -JyJ 


112766 

lie* WW 


6876 


023344 


005000 

V V ^ V V V 


6877 


0?3346 

VC ^ w 


012703 

V 1 C * V ^ 


6878 


0P3352 


1 12723 

1 1 c * c ^ 


6879 


023356 

WC 


005002 

V V W V c 


6880 


023360 

VC fl' ^W V 


016001 

V I WW • 


6881 


023364 

VC J J\J~ 


160105 

1 W V I V J 


6882 

www 


023366 

Vfc V ^WW 


002402 


6883 

W WW J 


023370 

V w V ^ ' V 


005202 

V V J w V w 


6884 

WWW" 


023372 


000774 


6885 

WWW J 


023374 

VC ^ V ' ~ 


060105 

WWW 1 V V 


6886 

WW WW 


023376 

VC ^ ^ ' w 


005702 

VV>' ' VC 


6887 

W WW r 


023400 

VC J~W 


001 002 

W 1 vvc 


6888 

W W WW 


023402 

Vw VC 


105716 


6889 


023404 


100407 


6890 


023406 


106316 


6891 


023410 


103003 


6892 

W W 7 1 


023412 


1 16663 


6893 


023420 


052702 


6894 

WW 7^ 


023424 


052702 

V ^ b • Vb 


6895 

WW 7 ^ 


023430 

VC ^w 


110223 

I • VCb ^ 


6896 

WW 7W 


023432 


005720 

V V ^ r b V 


6897 


023434 


020027 

VC V VC * 


6898 

WW 7W 


023440 

VC V 


002746 

VVC • ^w 


6899 


023442 


003002 

V V^ V VC 


6900 

W 7WV 


023444 

VC J^^^ 


010502 

V * V ^ wc 


6901 


023446 


000764 

www' w » 


6902 


023450 


105726 


6903 


023452 


100003 


690A 


023454 


116663 


6905 


023462 


105013 


6906 


023464 


012605 


6907 


023466 


012603 


6908 


023470 


012602 


6909 


023472 


012601 



020200 
000020 



000055 000001 



023524 
000040 

023514 



•THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
•REPLACED WITH SPACES. 



•CALL: 



STYPDS: 



000001 ^77777 

000060 

000040 



000010 



IS: 



2$: 
3$: 



4S: 



5S: 



6t: 
7$: 



U7777 )77776 



8t: 



9S: 



MOV 


NUM -(SP) 


TYPDS 




MOV 


RO,-(SP) 


MOV 


R1 !-(SP) 


MOV 


R2,-(SP) 


MOV 


R3.-(SP) 


MOV 


R5,-(SP) 


MOV 


#20200. -(SP) 


MOV 


20(SP) .R5 


BPL 


IS 


NEG 


R5 


MOVB 


f '-.1 (SP) 


CLR 


RO 


MOV 


fSDBLK,R3 


MOVB 


#• .(R3)* 


CLR 


R2 


MOV 


SDTBL(R0),R1 


SUB 


R1 ,R5 


BLT 


4S 


INC 


R2 


9R 


3S 


ADD 


R1 .R5 


TST 


R2 


BNE 


5S 


TSTB 


(SP) 


BMI 


7S 


ASLB 


(SP) 


BCC 


6S 


MOVB 


1(SP).-1{R3) 


BIS 


f '0,R2 


BIS 


f ,R2 


MOVB 


R2,(R3)« 


TST 


(RO)* 


CMP 


RO.flO 


BLT 


2S 


BGT 


8S 


MOV 


R5.R2 


BR 


6S 


TSTB 


(SP)* 


BPL 


9S 


MOVB 


-1(SP).-2(R3) 


CLRB 


(R3) 


MOV 


(SP)*.R5 


MOV 


(SP)*.R3 


MOV 


(SP)*.R2 


MOV 


(SP)*.R1 



::PUT THE BINARY NUMBER ON THE STACK 
::G0 TO THE ROUTINE 



PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

BR IF INPUT IS POS. 

MAKE THE BINARY NUMBER POS. 

MAKE THE ASCII NUMBER NEG. 

ZERO THE CONSTANTS INDEX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

BR IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT=0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S? 

BR IF YES 

MSD? 

BR IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

60 DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

WAS THE LSD THE FIRST NON-ZERO? 

BR IF NO 

YES— SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 
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SEC 0126 



6910 

6911 

6912 

6913 

69U 

6915 

6916 

6917 

6918 

6919 

6920 

6921 

6922 

6923 

692A 

6925 

6926 

6927 

6928 

6929 

6930 

6931 

6932 

6933 

6934 

6935 

6936 

6937 

6938 

6939 

6940 

6941 

6942 

6943 

6944 

6945 

6946 

6947 

6948 

6949 

6950 

6951 

6952 

t)953 

6954 

6955 

6956 

6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 



023474 
023476 
023502 
023510 
023512 
023514 
023516 
023520 
023522 
023524 



023534 
023540 
023546 
023552 
023556 
023560 
023566 
023574 
023602 
023604 
023606 
023610 
023614 
023616 
023622 
023626 
023632 
023636 
023640 
023642 



012600 
104401 
016666 
012616 
000002 
023420 
001750 
000144 
000012 
000004 



017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
0)0546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 



023524 

000002 000004 



SDTBL: 



SDBLK: 



nov 

TYPE 
MOV 

nov 

RTI 

10000. 

1000. 

100. 

10. 

.BLKU 



(SP)».RO 
.SDBLK 

2(SP).4(SP) 
(SP)*.(SP) 



POP STACK INTO RO 
NOU TYPE THE NUMBER 
ADJUST THE STACK 



;; RE TURN TO USER 



.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 



*THIS hOUTINE IS USED 
•OCTAL (ASCII) NUMBER 

•STYPOS ENTER HERE 

•CALL: 

• MOV NUM.-( 

• TYPOS 

• .BYTE N 

• .BYTE M 
t 

t 
• 

•STYPON ENTER HERE 

•$TYPOS OR tlYPOC 
•CALL: 

• MOV NUM.-( 

• TYPON 
• 

•STYPOC ENTER HERE 

•CALL: 

« MOV NUH,-( 

• TYPOC 



******************************************* 

TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
AND TYPE IT, 

TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

SP) ;; NUMBER TC BE TYPED 

CALL FOR TYPEOUT 

N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 
M=l OR 0 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 

TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 



SP) 



.-.'NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 



FOR TYPEOUT OF A 16 BIT NUMBER 

SP) ;: NUMBER TO BE TYPED 

;:CALL FOR TYPEOUT 



000000 

000001 023757 

023761 

000002 

000001 023757 
000006 023761 
000005 023756 



023761 

000006 
023760 
023757 
000012 



STYPOC; 



1$: 



MOV 


a(SP).-(SP) 
1(SP).$0FILL 




PICKUP THE MODE 


MOVB 


* 


LOAD ZERO FILL SWITCH 


MOVB 


(SP)*.$0MO0EH 


0 


NUMBER OF DIGITS TO TYPE 


ADO 


#2.(SP) 


# i 


ADJUST RETURN ADDRESS 


BR 


STYPON 






MOVB 


fl.SOFILL 


m 


■SET THE ZERO FILL SWITCH 


MOVB 


f6.IOMODE>l 


0 


;SET FOR SIX(6) DIGITS 


MOVB 


#5.S0CNT 


» 


SET THE ITERATION COUNT 


MOV 


R3.-(SP) 


0 


SAVE R3 


MOV 


R4.-(SP) 


9 


SAVE R4 


MOV 


R5.-(SP) 


0 


SAVE R5 


MOVB 


S0M0DE»1.R4 


0 


-GET THE NUMBER OF DIGITS TO TYPE 


NEG 


R4 






ADD 


f6,R4 


0 ' 


SUBTRACT IT FOR MAX. ALLOWED 


MOVB 


R4.S0M0DE 


* 


SAVE IT FOR USE 


MOVB 


S0FILL.R4 


* 


GET THE ZERO FILL SWITCH 


MOV 


12(SP).R5 


0 


PICKUP THE INPUT NUMBER 


CLR 


R3 


0 


•CLEAR THE OUTPUT WORD 


ROL 


R5 


§ 


ROTATE MSB INTO "C" 


BR 


3S 


0 


,G0 DO MSB 
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07^644 


0061 OS 




7t- 


nni 

nUL 


RS 


6967 


07^646 


0061 OS 








R5 


6968 




0061 OS 

VVU 1 v^ 






ROI 


RS 


6969 


0?365? 

VC J c 


010S03 






MOV 

ri V If 


R5 R3 


6970 


VC J*t 


wVO 1 *J J 








R3 


6971 


VC JSi JV 


105337 


073760 

VC <J • U V 




DF CB 


tONQDF 


697? 


07366? 


1 Vvv 1 w 






RPl 


7$ 


6973 


073664 

VC 


047703 

V~C ■ VJ 


177770 

1 r 1 » I V 






#177770 R3 


6974 


073670 

VC vO ( V 


001007 

VV 1 wc 






one 


4S 


6975 


073677 

VC -JS* * c 


005704 

VV J ' v~ 






TST 


R4 


6976 


073674 

VC JV 1 ^ 


001403 

Vv 1 V J 






DC V 




6977 


073676 

VC -JSJ * w 


005704 

VV ^C V^ 




4t- 


INC 


R4 


6978 


073/00 

VC ^ ' vv 


057703 

V JC ' V J 


000060 

WWW 






f'O R3 


6979 


073704 

VC J • V ~ 


057703 

V C * V'^ 


000040 

V V V V~ V 






#' R3 


6980 


073710 

VC • > V 


1 10337 


073754 

VC J 1 J" 




n V V u 


R3 as 


6981 


073714 

VC J 1 1 ^ 


104401 


023754 

VC J * J~ 




TYPE 


8S 


6982 


023720 

Vb ^ ■ b V 


105337 


023756 

VC ^ ■ ^ w 


7$: 


DECB 


tOCNT 

WW n I 


6983 


023724 


003347 






BGT 


7S 

C V 


698A 


023726 


002407 

WC ~ VC 






BIT 


6S 

V • 


6985 


023730 

VC J • w 


005204 

VV J c v^ 






INC 


R4 


6986 


073737 

VC -J • ^c 


000744 

VVV • ~"t 






RR 

on 


2S 


6987 


023734 

VC • 


017605 

V 1 C W J 




6S- 


MOV 

n V ¥ 


(SP)« RS 


6988 


023736 

VC J • w 


017604 

V 1 c 






nov 


(SP)+ R4 


6989 


023740 


012603 

VIC w W 






NOV 

n V w 


(SP)« R3 


6990 


023742 

VC V • ^ c 


016666 

V 1 WW 


000002 000004 

vwwc wvw~ 




NOV 

n V w 


7(SP) 4(SP) 


6991 


023750 


012616 






NOV 

nv w 


(SP)« (SP) 


6992 


023752 


000002 






RTI 




6993 


023754 


000 




8t: 


.BYTE 


0 


6994 


023755 


000 






.BYTE 


0 


6995 


023756 


000 




tOCNT: 


.BYTE 


0 


6996 


023757 


000 




tOf ILL: 


• BYTE 


0 


6997 


023760 


000000 




SOMODE : 


.WORD 


0 



6998 
6999 
7000 
7001 
7002 
7003 
7004 
7005 
7006 
7007 
7008 
7009 
7010 
7011 
7012 
7013 
7014 
7015 
7016 
7017 
7018 
7019 
7020 
7021 



::roRN this digit 



GET LSB OF THIS DIGIT 
TYPE THIS DIGIT? 
BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0? 
BR IF YES 

DON'T SUPPRESS ANYMORE O'S 
NAKE THIS DIGIT ASCII 
NAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUNT BY 1 
BR IF nORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
RESTORE R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 

TERMINATOR FOR TYPE ROUTINE 

OCTAL DIGIT COUNTER 

ZERO FILL SWITCH 

NUMBER OF DIGITS TO TYPE 



.SBTTL TTT INPUT ROUTINE 



.ENABL LSB 



023762 
023770 
023772 
023776 
024000 
024004 
024010 
024014 
024016 
024024 

024026 
024032 



022737 
001074 
105777 
100071 
1 1 7746 
042716 
022726 
001062 
123727 
001456 

104401 
104401 



000176 001140 SCKSWR: 

155146 

155142 
177600 
000007 

001134 00000 1 



.-•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
.'•ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
.■•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG MODE. 



CMP 
BNE 

TSTB 
BPL 

novB 

BIC 

CMP 

BNE 

CNPB 

BEQ 



024647 
024654 



TYPE 

SGTSUR: TYPE 



fSWREG.SWR 
15S 
aSTKS 
15S 

aSTKB,-(SP) 
f C177.(SP) 
#7,(SP)* 
15f 

SAUTOB.fl 
1SS 

.SCNTLG 
.tnSWR 



IS THE SOFT-SWR SELECTED? 
BRANCH IF NO 
CHAR THERE? 

IF NO. DON'T WAIT AROUND 

SAVE THE CHAR 

STRIP-OFF THE ASCII 

IS IT A CONTROL G? 

NO, RETURN TO USER 

ARE WE RUNNING IN AUTO-HOOE? 

BRANCH IF YES 



;;ECHO THE CONTROL-G ( G) 
;:TYPE CURRENT CONTENTS 
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SEQ 0128 



70?? 




ftl 3746 

U 1 J f HO 


onni 76 










^AUF CUBFft FOB TVPFOIIT 














T vPnr 








07404^ 


104401 








T VPF 




PBOHPT FOB MFU CUB 


70?S 




00S046 






1 Qt • 


L L n 


-(SP) ;; 


CLEAR COUNTER 


70?6 


0?40S? 


00S046 








L L n 


-(SP) 


THE NEW SUR 




n?40S4 
Uc"*U Jt 


1 0S777 


1 ^^064 




7t • 


1 d 1 D 


a$TICS 


CHAR THERE? 




n?40<^n 

UC*tvOU 










RPI 


7$ 


IF NOT TRY AGAIN 


7029 


















70^0 


07406? 


1 1 7746 


1 SSQ6Q 
1776C0 

Iff UWV 






HOUR 


a$TKB.-(SP) ::PICK UP CHAR 


7031 


024066 


042716 






BIT 


# C177.(SP) ;;HAICE IT 7-8IT ASCII 


703? 


















7033 

1 V J J 


















7334 


















7035 

t \0 J J 


0?407? 


0?16?7 


000025 

wVwVC J 




WW ■ 


mp 


(SP) #25 


IS IT A CONTROL-U^ 


7036 


0?4076 


001 oos 

WW 1 Vw J 










10$ 


BRANCH IF NOT 


7037 


024100 


104401 


024642 






TYPE 


,$CNTLU 


YES ECHO CONTROL-U ( U) 


7036 


024104 


062706 

VWh ■ WW 


000006 

WW WW 




20t- 

C W9 • 


ADD 


«6 SP 


IGNORE PREVIOUS INPUT 


7039 


024110 


000757 

WWW r ✓ r 








BR 


19$ 


LET'S TRY IT AGAIN 


70AO 


















70A1 


















70A2 


024112 


021627 

WL 1 W L * 


000015 

wwww ■ ^ 




10$: 


CMP 


(SP),#15 


■IS IT A <CR>' 


70A3 


0241 16 


001022 

W V 1 WL L 








BNE 


16$ ; 


■BRANCH IF NO 


70AA 


024120 


005766 

\J \J J ' WW 


000004 

WWW WW^ 






TST 


4(SP) : 


■YES. IS IT THE FIRST CHAR'' 


70A5 


024124 


001403 

WW 1 ~ w 








BFQ 


11$ : 


:BRANCH IF YES 


70A6 


024126 


016677 

W 1 WW • • 


000002 

V V V V V c 


155004 




nov 


2(SP).aSUR 


:SAVE NEW SUR 


7047 


0241 34 


062706 

WW C r WW 


000006 

WW www w 




lit- 


ADD 


«6,SP 


: CLEAR UP STACK 


7048 


024140 


104401 


001213 

WW t ^ 1 J 




14S: « 


TYPE 


,$CRLF 


'ECHO <CR> AND <LF> 


7049 


024144 


123727 


001135 


000001 

www I 




CNPB 


$INTAG,#1 ; 


;RE-ENABLE TTY KBD INTERRUPTS? 


7050 


024152 


001003 

VW I V w 








BNE 


15$ ; 


;BRANCH IF NOT 


7051 


024154 


012777 


0001 00 

WWW 1 WW 


154762 




NOV 

n v » 


#100,a$TKS : 


; RE-ENABLE TTY KBD INTERRUPTS 


7052 


024162 


000002 

V V V V Vb 






15$: 


RTI 




; RETURN 


7053 


024164 


004737 


023240 

Vk V C ~ V 




16$- 


JSR 

w w n 


PC.$TYPEC ■ 


;ECHO CHAR 


7054 


024170 


021627 

Vfc I Wfc ' 


00006G 

WWWW 






cnp 


(SP).«60 


;CHAR < 0? 


7055 


024174 


002420 

VWb ~ t w 








BLT 


18$ 


;BRANCH IF YES 


7056 


024176 


021627 


000067 

wwww ■ 






cnp 


(SP),#67 


;CHAR > 7? 


7057 


024202 


003015 








BGT 


18$ 


;BRANCH IF YES 


7058 


024204 


042726 


000060 

w w w w w w 






BIC 


#60. (SP)* 


;STRIP-OFF ASCII 


7059 


024210 


005766 

WW ^ • WW 


000002 

W W W 






TST 


2(SP) 


;IS THIS THE FIRST CHAR 


7060 


024214 


001403 








BEQ 

Ww " 


17$ ; 


;BRANCH IF YES 


7061 


024216 


006316 








ASL 


(SP) 


;N0. SHIFT PRESENT 


7062 


02A220 


006316 

www ^ 1 w 








ASL 


(SP) ; 


CHAR OVER TO HAKE 


7063 


024222 


006316 








ASL 


(SP) 


ROOM FOR NEW ONE. 


7064 


024224 


005266 

vw WW 


000002 

W W W W W 




17$: 


INC 


2(SP) 


;KEEP COUNT OF CHAR 


7065 


024230 


056616 

W W W • V 


177776 






BIS 


-2(SP).(SP) 


;SET IN NEW CHAR 


7066 


024234 


000707 








BR 


7$ 


;6ET THE NEXT ONE 


7067 


024236 


104401 

1 W~~W ' 


001212 

VV 1 b 1 c 




18$: 


TYPE 


.$QUES 


;TYPE ?<CR><LF> 


7068 


024242 


000720 








BR 


20$ 


; SIMULATE CONTROL-U 


7069 










.DSABL 


LSB 






7070 
















i 


7071 


















7072 












7073 










.••THIS 


ROUTINE 


WILL INPUT A SINGLE CHARACTER FROM THE TTY 


7074 










.♦CALL: 








7075 










; » 


ROCHR 




; INPUT A SINGLE CHARACTER FROM THE 


7076 










; • 


RETURN 


HERE : 


iCHARACTER IS ON THE STACK 


7077 










; ♦ 






;UITH PARITY BIT STRIPPED OFF 
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7078 

7079 

7080 

7081 

7082 

7083 

7084 

7085 

7086 

7087 

7088 

7089 

7090 

7091 

7092 

7093 

7094 

7095 

7096 

7097 

7098 

7099 
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SEO 0129 



7105 
06 
7107 
7108 
7109 



7113 
71U 
7115 



00 
01 
02 
03 
04 



10 
11 
12 



16 
17 
18 
19 



7120 
7121 



22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



Oc*»CHH 


011646 






SNDCHn : 


nOw 






A1 ^^^^ 

016666 


AAAAA/ 

000004 


A AAAAI 

OOOOOc 




MAII 

nuV 


//CD\ 0/CD\ 




10 f f 


1 c/ 




1 » : 


ISTB 


AC Tr c 

il 1 


AO/ O^A 


1 AA17C 








DDI 

BrL 


1 • 


AO/. O^O 


fiffOb 


1 3h6o0 


AAAAA/ 

OOOOOh 




MAUD 

nuVB 


aCT VD y / C D \ 


AOA 07rt 


A/ 07i^iL 

Oncf 66 


1 77iiAA 

1 f f 600 


AAAAA/ 

OOOOOh 




D 1 r 
Bl I 


• L< 1 f f >,«» I br/ 


AOA 07A 


A0iLiL07 


AAAAA/ 
OUOUOh 


AAAA07 




ritD 


//CD) 

H I or J ,wcj 


AO/. 1A/ 


AA1 AIT 

001 01 J 








Due 

□ Nt 


x» 


no/ xpii. 


1 A?777 


1 5h6 JC 






T C TD 


■ a 1 Kb 


AO/ T1 3 


1 AA775 








DDI 

BrL 


o« 
ca 


AO/ T1 / 


1 1 77/A 
I I f f HO 


1 C/A3A 

1 jh6cO 






MAUD 

nuvb 


■ a 1 RB, vbr J 


A3/ T3A 


A/ 371 A 
VHCf 1 6 


1 77AAA 
1 f I 6UU 






D 1 r 


M rl77 ^CD^ 
• L 1 f f . Ibr / 


A9^T9^ 
UCH JC*» 


UCCOCf 


AAAA01 






mo 


V ir J T ,irc 1 




WW 1 JOO 








DnC 


OC 


024332 


000750 








BR 


It 


024334 


026627 


000004 


ooouo 


5$: 


CHP 


4(SP).#140 


024342 


002407 








BLT 


4t 


024344 


026627 


000004 


000175 




CHP 


4(SP).#175 


024352 


003003 








BGT 


4S 


024354 


042766 


000040 


000004 




BIG 


#40.4(SP) 


024362 


000002 






4S: 


RTI 





PUSH DOWN THE PC 

SAVE THE PS 

WAIT FOR 

A CHARACTER 

READ THE TTV 

GET RID OF JUNK IF ANY 

IS IT A CONTROL-S? 

BRANCH IF NO 

WAIT FOR A CHARACTER 

LOOP UNTIL ITS THERE 

GET CHARACTER 

HAKE IT 7-BIT ASCII 

IS IT A CONTROL-Q? 

IF NOT DISCARD IT 

YES, RESUME 

IS IT UPPER CASE? 

BRANCH IF YES 

IS IT A SPECIAL CHAR? 

BRANCH IF YES 

HAKE IT UPPER CASE 

GO BACK TO USER 



:*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
;*CALL: 

RDLIN 

RETURN HERE 



; INPUT A STRING FROM THE TTY 

.•ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
: TERMINATOR WILL BE A BYTE OF ALL O'S 



024364 
024366 
024370 
024374 
024400 
024402 
024404 
024406 
024412 
024414 
024416 
024420 
024426 
084432 
024436 
024440 
024444 
024446 
0244S2 
024456 
024460 
024462 
024464 
024472 
024476 
024500 



010346 
005046 
012703 
022703 
101456 
104410 
112613 
122713 
001022 
005716 
001007 
112737 
104401 
012716 
005303 
020327 
103434 
111337 
104401 
000746 
005716 
001406 
112737 
104401 
005016 
122713 



024620 
024642 



000177 



000134 
024616 
}77777 

024620 

024616 
024616 



000134 
024616 

000025 



SRDLIN: 

IS: 
2S: 



10S: 



024616 



6S: 



024616 



5$: 



7$: 



NOV R3.-(SP) 

CLR -(SP) 

nOV rSTTYIN,R3 

CHPw #STTYIN»22,R3 

BLOS' 4S 

RDCHR 

HOVB (SP)*.{R3) 

CHPB f177,(R3) 

BNE 5$ 

TST (SP) 

BNE 6S 

nOVB #' ,9S 

TYPE .9S 

HOV #-1.(SP) 

DEC R3 

CHP RJ.#$TTYIN 

BLO i4 

nOVB (R3),9» 

TYPE .9$ 

BR 2S 

TST (SP) 

BEO 7$ 

HOVB #' ,9$ 

TYPE .9$ 

CLR (SP) 

CHPB #25. (R3) 



SAVE R3 

CLEAR THE RUBOUT KEY 
GET ADDRESS 
BUFFER FULL? 
BR IF YES 

GO READ ONE CHARACTER FROn THE TTY 
GET CHARACTER 
IS IT A RUBOUT 
BR IF NO 

IS THIS THE FIRST RUBOUT? 
BR IF NO 

TYPE A BACK SLASH 

SET THE RUBOUT KEY 
BACKUP BY ONE 
STACK EBPTY? 
BR IF YES 

SETUP TO TYPEbUT THE DELETED CHAR. 
GO TYPE 

GO READ ANOTHER CHAR. 
RUBOUT KEY SET? 
BR IF NO 

TYPE A BACK SLASH 



;; CLEAR THE RUBOUT KEY 
::IS CHARACTER A CTRL U? 
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SEO 0130 



7134 


074504 


00100^ 








RMF 
OnC 




7135 


vC"* J vO 


104401 








T VPF 


truTi II 

« Vl. n 1 LU 


71 36 


0P451? 


0007?<^ 








RD 
On 


1 « 
1 • 


7137 






0000?? 










71 38 




00101 1 








one 


J9 


71 




10S01 ^ 








ri QR 


lUW 
\ njl 


7K0 




104401 


001 ?1 ^ 






T VPP 


tTRI F 


7141 






0?46?0 






TVPF 


tTTV m 


7142 


024534 


000717 








RR 




7143 


024536 


104401 


00121? 




4t • 


TVPF 
1 I re 




7144 


02454? 


00071 ? 








RR 

Dn 




7145 


024544 


111 5^7 


0?4616 






nu VD 


V n J / #79 


7146 


024550 


104401 

1 W^^ W 1 


074616 






TVPF 

1 1 r t 


# T» 


7147 


024554 


122723 


00001 5 

WWW 1 J 






TMPR 

Lrlr O 


#1^ (R^)> 


7148 


024560 


001 305 

WW 1 J\J J 








RMF 
DHL 


C 9 


7149 


024562 


105063 

1 W J\J\J J 


M7777 






ri RR 


-1 (R^) 


7150 


024566 


104401 


001714 






TVPF 


.SLF 


7151 


024572 


005726 








TST 




7152 


024574 


012603 

W 1 w W W ^ 








MOU 

nu V 


(^P)f R^ 


7153 


024576 


01 1646 

w 1 < w~w 








Mnu 


\ Or / , \ Or / 


7154 


024600 


016666 

w t wwww 


000004 

W WW w W^ 


00000? 

w www wc 




Mnu 


4(SP) ?KP) 


7155 


024606 


012766 

w 1 L r WW 


024620 

WL ~ wt w 


000004 

www w w^ 




Mnu 

nw V 


iftTTV IM 4 ( ^P) 


71 56 


024614 


000002 

WWW WW c 








RT I 


7157 


024616 


000 

www 








RVTF 


0 


7158 


02461 7 


000 

Www 








RVTF 

• D 1 1 u 


0 


71 59 


024620 


00002? 

www wc c 






tTTYlM* 


RI KR 

• DL 


7? 

CC 


7160 


024642 


052536 


005015 


000 

www 


ifMTI tJ * 


A^f I 7 


/ ll/<1S><17> 


7161 


024647 


136 


006507 

w w w ^ w r 


000017 

wwww 1 c 


V L r« 1 ^ W ■ 


ASC 17 


/ ri/<is><i7> 


7162 


024654 


005015 

W W ^ W I J 


053523 


07017? 

WC W ICC 




.ASCIZ 


<15><12>/SUR = 


7163 


024662 


020075 


000 










7164 


024665 


040 

W^ w 


047040 

w~ r w ~ w 


053505 


SMNEU: 


.ASCIZ 


/ NEW = / 


7165 


024672 


036440 


000040 










7166 
















7167 










.SBTTL 


TRAP DECODER 


7168 
















7169 












7170 










;*TH1S 


ROUTINE 


WILL PICKUP THE 


7171 










.-•AND USE IT TO 


INDEX THROUGH 


71 72 

rift 










:*0F THE DESIRED ROUTINE. THEN 


7173 










;»G0 TO 


THAT ROUTINE. 


7174 
















7175 


024676 


010046 

W 1 w w ~ w 






JTRAP: 


NOV 


RO,-(SP) 


7176 


024700 

Wfc~ r WW 


016600 

w 1 wwww 


000002 

w w w w w c 






HOV 


2(SP),R0 


7177 


024704 


005740 

WW J f ~v 








TST 


-(RO) 


7178 


024706 


1 1 1 000 








novB 


(RO},RO 


7179 


024710 


006300 








ASL 


RO 


7180 


024712 

Wfc ^ rib 


016000 

w 1 wwww 


02473? 






nov 


STRPAO(RO),RO 


7181 


024716 


000200 








RTS 


RO 


7182 














7183 
















7184 










;;THIS 


IS USE TO HANDLE THE "6 


7185 
















7186 


024720 


011646 






SrRAP2: 


nov 


(SP).-(SP) 


7187 


024722 


016666 


000004 


000002 




nov 


4(SP),2(SP) 


7188 


024730 


000002 








RTI 


7189 








* 







BR IF NO 

TYPE A CONTROL "U" 

GO START OVER 

IS CHARACTER A " R"? 

BRANCH IF NO 

CLEAR THE CHARACTER 

TYPE A "CR" I "LF" 

TYPE THE INPUT STRING 

GO PICKUP ANOTHER CHACTER 

TYPE A '?• 

CLEAR THE BUFFER AND LOOP 
ECHO THE CHARACTER 

CHECK FOR RETURN 

LOOP IF NOT RETURN 

CLEAR RETURN (THE 15) 

TYPE A LINE FEED 

CLEAN RUBOUT KEY FROn THE STACK 

RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF 
FIRST ASCII CHARACTER ON IT 

RETURN 

STORAGE FOR ASCII CHAR. TO TYPE^ 
TERniNATOR 

RESERVE 22 BYTES FOR TTY INPUT 
CONTROL "U" 
CONTROL "G" 



THE 



= / 



.•CONTROL U. RUBOUT CAPABILITY 



SAVE RO 

GET TRAP ADDRESS 
BACKUP BY 2 

GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
60 TO ROUTINE 



GETPRI" HACRO 



nOVE THE PC DOWN 
NOVE THE PSU DOWN 
RESTORE THE PSW 



024032 
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7190 
7191 
7192 
7193 
7194 
7195 
71 96 

7197 024732 024720 

7198 024734 023070 

7199 024756 023560 

7200 024740 023534 

7201 024742 023574 

7202 024744 023310 
7203 
7204 
7205 

7206 024750 023762 

7207 024752 024244 

7208 024754 024364 
7209 

7210 024756 021760 
7211 

7212 024760 022014 
7213 

7214 024762 022032 
7215 

7216 024764 021056 
7217 

7218 024766 021066 
7219 

7220 024770 021664 
7221 

7222 024772 021706 
7223 

7224 024774 021572 

7225 

7226 

7227 

7228 

7229 

7230 

7231 024776 012737 025142 000024 

7232 025004 012737 000340 000026 

7233 025012 010046 

7234 025014 010146 

7235 025016 010246 

7236 025020 010346 

7237 025022 010446 

7238 025024 010546 

7239 025026 017746 154106 

7240 025032 010637 025146 

7241 025036 012737 025050 000024 

7242 025044 000000 

7243 025046 000776 
7244 

7245 
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.SSTTL TRAP TABLE 

.-•THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.-•BY THE "TRAP"' INSTRUCTION. 



SEQ 0131 



fTRPAD: 



ROUTINE 

.WORD 

STYPE 

$TYPOC 

STYPOS 

$TYPON 

$TYPDS 

SGTSUR 

tCKSUR 
SRDCHR 
SRDLIN 

CH.CRDY 

CN.RST 

CN.RDY 

8DA0 

BDA4 

DELA.Y 

JATINT 

TSTSIN 



STRAP2 

CALL=TYPE 
CALL=TYPOC 
CALLsTYPOS 
CALL=TYPON 
CALL=TYPDS 



TRAP*1{104401) 
TRAPt2(104402) 
TRAP«3(104403) 
TRAP«4(104404) 
TRAP»5(104405) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (UFH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



CALL=GTSUR TRAP^6 ( 1 04406) GET SOFT-SUR SETTING 

CALL = CICSWR TRAP*7(104407) TEST FOR CHANGE IN SOFT-SWR 

CALL=RDCHR TRAP*10(104410) TTY TYPEIN CHARACTER ROUTINE 

CALL=RDLIN TRAP^II (10441 1 ) TTY TYPEIN STRING ROUTINE 

CALL=CHKCRDY TRAP*12(104412) CHECK CONTROL READY 

CALL=CNT. RESET TRAP«13(104413) CONTROL RESET ROUTINE 

CALL=CNT.RDY TRAP«14(104414) WAIT FOR CNTRL RDY TO SET 

CALL^BRKDAO TRAP«15(104415) BREAK RKDA INTO DR #,CYL,SUR,SEC BITS 

CALL=BRKDA4 TRAP«16(104416) BREAK RKDA INTO DR «,CYL,SUR,SEC BITS 

CALL=DELAY TRAP*17(104417) TIME DELAY ROUTINE 

CALL=UAT.INT TRAPt20(104420) WAIT FOR RK11 INTERRUPT ROUTINE 

CALL=TST.SIN TRAP*21 (104421 ) TEST SIN ROUTINE 



SBTTL POWER DOWN AND UP ROUTINES 



; POWER DOWN ROUTINE 



tPWRDN: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
BR 



#SILLUP.a#PWRVEC 

f340,a#PWRVEC^2 

RO.-(SP) 

R1,-(SP) 

R2.-(SP) 

R3.-(SP) 

R4,-(SP) 

R5,-(SP) 

aSWR,-(SP) 

SP.SSAVR6 

#SPWRUP,a#PWRVEC 

.-2 



;;SET FOR FAST UP 
'PRI0:7 

•PUSHPO ON STACK 
:PUSH R1 ON STACK 
;PUSH R2 ON STACK 
.•PUSH R3 ON STACK 
;PUSH R4 ON STACK 
.-PUSH R5 ON STACK 
.-PUSH aSWR ON STACK 
.SAVE SP 
;;SET UP VECTOR 

:HANG UP 
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SEQ 0132 



( c«»o 










> DAUC D 


UP ROUTINE 




TiL 7 


0£5050 


A1 0717 


A0C1 / 0 
VCJiHC 


AAAAO/ 


* DUDI ID - 


flow 


••lLLUr,iffPWRvcC , 


• CCT CAD CACT f\ALJkl 

,az\ rOR rAbI POWN 


f CHO 


AOC AC^ 
025U5O 


A1 7 7A^ 
01 3f Oo 


A 0 C 1 / X 






ROW 


• CAlfDilCD 

SbAVKO , 5r ; , 


r C T CD 


1 C*»7 


Uc5Uoc 


AA5AT7 
U0503f 


AOC1 / * 

Oc J i^O 






CLK 


CCA If Dil 


UA t T 1 AAD CAD TUC TTV 

WAl 1 LUOr rUK 1 nt MT 




Uc5Uoo 


AAC 017 


0c5 l*0 




1 » : 


fur 
INC 




UAf T CAD TUC TAir 

WAl 1 r OK 1 He INC 


7DQ1 


0c5Urc 


AA1 17C 

001 31 J 








Due 

BNc 


1 « 

■ * • 1 


AC LIADn 


t C^C 


0c50Ah 


A1 OX 77 


1 5^UhU 






MA II 

ROW 




DAD CTAr^ TAITA ACUD 

rUr alALK INIO •oUn 


7'iKX 


A5C1 nn 
Uc5 1 00 


A1 OikAC 
01 COVJ 








HA 11 
ROW 


/ CD^ A DC 


DAD CTArv TUTA DC 

rOr alALK INIO K5 


I C J*t 


n5Qi n5 
Uc5 1 Ue 


A1 5iLA/. 








MAli 

RUV 


/ CD ^ A DA 


DAD CTATV TklTA D* 


75^^ 


n 5 5 1 AA 


A1 5*AT 
U1 £OU5 








MAW 

ROV 


(SP)*.R3 


DAD CTArv ItlTA D7 
rUr olALK INIU nj 


7?CA 
f C 50 


A5C1 n* 
Uc51 UO 


A1 0JLA5 








MAW 

ROV 


(SP)*.R2 ; 


POP STACK INTO R2 


73^7 


A5^1 1 n 

vCJ 1 1 U 


01 5A01 
V 1 cOU 1 








MAli 

ROV 


(SP)*.R1 


POP STACK INTO R1 


70Cfl 
f £30 


n5^i 1 5 

VCJ 1 1 C 


A1 5AAA 








MAW 

ROW 


(SP)+,RO 


POP STACK INTO RO 


75^0 
f £jy 


VCJ 1 1 *! 


A1 5777 

vMl Jl 


A5/.77A 


AAAA5* 




MAW 

ROW 


ftPURDN.atPURVEC 


■:SET UP THE POWER DOWN VEC 


r cOU 


A5C1 55 


A1 5777 


AAA 7* A 
UUUO<lU 


AAAA5A 




MAii 

RUV 


#340.a«PURVEC+2 ; 


;PRI0:7 


r cO 1 


n5C1 TA 


1 A/,/, A1 








T VDC 

I Trt 


;REPORT THE POWER FAILURE 


f coc 


A5M 75 

VCJ 1 5c 


A5C1 
McJ 1 5U 






CDUBMC • 


UADn 


SPOUER 


•POWER FAIL nESSAGE POINTER 


75AX 


A5Q1 XL 
VCJ 1 


rt1 571 A 
U 1 c r 10 








MAli 

ROV 


(PC)*.(SP) ; 


;RESTART AT PFSTRT 


75A^ 


n5C1 Xfk 
VCJ I 50 


AA^7A5 
vvHiMc 






CPUDAn • 




PFSTRT 


;RESTART ADDRESS 


f CO J 


A5f;i AO 
VcJ 1 ••U 


nOOAA5 
UUUUUc 








DTI 
K 1 1 






75AA 
1 cOO 


05^1 £5 


AAAAAA 
Vvvvvv 






C f 1 1 1 ID • 


HAL 1 




;THE POWER UP SEQUENCE WAS 


75A7 


05^1 
Uc 5 1 •••• 


vvvi fO 








DD 


.-2 ; 


; BEFORE THE POWER DOWN WAS 




05^1 A* 
yjCJ • '•0 


\Jvvvvv 






c CAUDA • 


Q 




;PUT THE SP HERE 




05C1 


AACA1 C 
UU5U 1 5 


A*7C5A 
US 1 5cU 


0*5^57 
U<tc5c r 


KDAUCB • 


.ASCI2 


<15><12>"POWER" ' 




7570 


05<1 
Uc5 1 50 


nOAl 55 
UUU 1 cc 














7571 

f CI t 












.EVEN 






7575 
f CI c 


















757? 

1 CI J 


A5^1 AO 
Uc 5 1 OU 


nrtA777 
UU*» 1 Jl 


051 ^0* 
Uc 1 jUs 




tfUftV • 
t LnC . 


JSR 


PC.DRESET 


:RESETB DRIVE 


75 7/. 

1 Cl H 


vCJ I O** 


1 0£05A 
1 U'tUcO 








ERROR 


26 




757S 

1 CI J 


05^1 AA 


1 {\LL^ 7 








CNT. RESET 




757A 


AJCI 7A 
Uc5 1 1 U 


01 7777 

\J i Jl Jl 


001 7^0 
UU 1 jJv 


05^705 
Uc5 JUc 




ROV 


DRIVAD.DRHOLD 


.-SAVE DRIVE ADRR 


Till 
1 CI 1 


A5^ 1 7A 

\JCJ 1 ' O 


075777 

VJCI Jl 


050000 
vCvvvv 


001 7^0 
UU 1 JJV 




BIT 


f20000.DRIVAD 


.-SEE IF ODD 


1 ClO 


A5<t:5n^ 
Uc5cU«> 


A01 AO* 
Mv 1 HVH 








BEQ 


U 




7570 

ICIT 


A5C5AA 


0*5777 
UScf Jl 


050000 
UcUUUU 


001 7^0 
UU 1 55U 




BIC 


f 20000. DR IV AD 


.-HAKE EVEN 


1 CO\l 


n5C51* 
VCJC \ 


000*07 
vvvHvj 








BR 


2S 




75B1 


A5C51 A 


0S5777 

VJCI Jl 


050000 
vCvvvv 


001 7^0 

UU 1 JJV 


1 1 • 


BIS 


#20000, DRIVAD 


.-HAKE ODD 


75fl5 


vCJCCH 


01 7777 

V \ Jl 1 1 


001 7S0 
UU 1 55U 


1^*1 OA 
1 jH I UO 


5t ■ 


nov 


DRIVAD,aRKDA :DRIVE ADDR 




n5S575 
vCjCjC 


01 5777 

vtCiii 


00001 1 
UUUU 1 I 


1 •;*075 
1 jHvl C 




nov 


fll.aRKCS 


;ORIVE SEEK 


f col 


AJCp/A 
UcJcHU 


1 0**1 * 
1 vHH 1 H 








CNT.RDY 








n5S5*5 


01 7777 

V\ Jl 1 1 


Uc5 JUc 


1 S*070 




nov 


DRHOLD^iRKDA 


.-OTHER DRIVE 


791tA 
r cOO 


n5S5^n 

UC5C5U 


10**1* 

1 VHH 1 








CNT.RDY 






7>H7 


05^5^5 
VCJCJC 


075777 

VJC III 


onnino 

UUU 1 UU 


1 ^*0*A 




BIT 


flOO.aRKDS 


:HEAEDS IN nOTIONN? 




UCJcOU 


001001 

Uv 1 vU 1 








BNE 


3» 


;N0 SO RK-05J 


75IIQ 
1 coy 


n5S5A5 
Uc JcOc 


00S75S 

vvJ 1 CJ 








TST 


{R5)* 


;YES RK-05F 




Uc JcOt 


01 7777 

V 1 Jl Jl 


05^705 
Uc5 jUc 


001 7^0 
UU 1 JJv 


7t • 


nov 


DRNOLD.DRI(/AD 


: RESTORE ADOR 


7501 

1 cy 1 


vCJCI c 


00*777 
vvH 1 Jl 


051 ^0* 
Uc 1 jV* 






JSR 


PCDRESET 


.-WAIT FOR RESET 


1 eye 


l/c 5c ' O 


1 0*05A 








ERROR 


26 




750X 


/)5^Tnn 

Uc55UU 


UUUcU5 








RTS 


R5 




1 C 




AAAAOO 






nDUAi n • 

UnnULU • 


0 






790^ 
f £yj 


Uc 5 JU*I 


nnso^7 

UU5U 3 r 


UU I JJV 




C I 7F F • 
9i cC r . 


CLR 


DRIVAD .-START AT DRO 


7296 


02S310 


012700 


001414 






nov 


fDRIVO.RO 


.-TABLE OF AVAIL DRIV 


7297 


0253U 


005710 






4S: 


TST 


(RO) 


.-THIS DRIVE HERE? 


7298 


025316 


00U13 








BEO 


2S 


:N0 


7299 


025320 


005760 


000002 






TST 


2(R0) 


;COnPLEnENT HERE? 


7300 


025324 


00U10 








BEQ 


2S 


:N0 


7301 


025326 


004537 


025160 






jSR 


R5.FCHECK 


.-SEE IF F nODEL 



MO-n-CZRKKF 
CZRKKF.P11 
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SEQ 0135 







UUUhU J 








On 


I jU J 


n?sxxi 

UC J J JH 


U JC » 1 u 


1 nooAO 






D i J 




VC J jhU 


U JC » ou 


1 onooo 


00000? 




RI S 




n^^XLtt 


UU J r cU 






c • • 


1 J I 




n5SX^rt 

uc J JJw 


UU J ' cU 








TST 




Uc J JJC 


n<k?7X7 
UOC r J ' 




001 xso 

UU 1 J JU 




ADD 


7Xt\H 


Uc J jOU 


Ucc ' UU 


0014XX 

UU 1 H J J 








1 JWT 


Uc J jOh 


nnxx<tX 

UU J J J J 








RGT 

DV t 


f J 1 u 


Uc J jOO 


UUUcUr 








RTS 


7^1 1 














7X^ 0 












, t •» vn 


' J 1 J 


























SRTTL 

• <90 1 1 b 


7X^ s 














7'^1 A 


VCJJl V 


U*t J JCC 


041 S?7 

UH 1 JC 1 


04?440 


ENl 1 : 


ASCI2 


7^1 7 

f JI f 


Uc J J' o 


U*» f JCC 


000177 
UUU 1 cc 








f J \ o 














7^1Q 














r JC\J 


VC JHUC 


VHM JCJ 


o?oi ^f^ 

vC w 1 1 u 


051 51 1 


b n 1 c • 


ASCI2 


7X91 

1 JC 1 


Uc JH 1 U 


U J 1 HHU 


0S?1 OS 

UJC 1 U J 


000 






7X?y 
f jCC 














7X'>X 

f JCJ 


AOCA 1 C 
Uc J** 1 J 


ICC 


041 1 1 X 

UH 1 1 1 J 


0?0101 

wCU 1 U 1 


FM1 X- 

b n 1 J ■ 






Uc JHCC 


U J 1 1 U J 


051117 


000 






f JCJ 














' JCO 


Uc Jtc ' 


1 cc 


04?1 13 

UHC 1 1 J 


0?0101 

vC V 1 V I 


FN16- 

C ri 1 V " 


ASCI2 


1 jC< 


vC J"* J"* 


nsi 1 ?7 

w J 1 1 C ' 


047117 


0?0107 

VC w 1 W * 






f jCO 


Uc JtHc 


UH J 1 V 1 


047S74 

UHC JCH 


0?01?? 

UCU 1 c c 






1 JC~ 


\lc J^ J V 


\f J \ » 


UHC JCJ 


0OOQ47 






1 jjyj 














r J J 1 


VC JH JO 


UH ^ JCC 


051 504 


04?440 


t ric • • 


ASCIZ 




WC JHO** 


UH » JCC 


0001?? 

V vv ICC 








7X33 

I J J J 














7WL 

1 JjH 


VC J** ' U 


0S0104 

U Jv 1 UH 


0?01 14 


Q4?5?3 


b ru V • 


ASCIZ 

• n (9 b A L 


1 jjj 


uc JH » D 


UUU I CH 










/ JJQ 














7XX7 

f jjf 


VC J JUU 


V J 1 1 UH 


0?01?5 

vC V 1 C J 


042523 

W~ C J c ^ 


EM31 • 


ASCIZ 


7TXA 

f . lO 


uc J JUO 


000* ?4 
UUU c*t 










f JJT 
















VC J J I U 


wH J JCC 


0X?4AO 


041040 


EM32- 


ASCIZ 

• n (9 b A c 


7XA1 


vC J J I V 


UJC 1 1 I 


047040 


052117 






7XA? 


Uc J JCt 


U J 1 HHV 


05?105 

V JC 1 V J 


000 




















t JHH 


uc J J J 1 


1 VH 


0545?? 

V JH JC C 


041040 




ASCIZ 

« n ^ b A L 


7X4 S 


0PS5X6 


05?1 1 1 


047040 


052117 








OP55AA 

vC J J*»*» 


V ^ 1 ^ ^ V 


052105 


000 






7\L7 

f jH 1 














1 jHO 


uc J J J 1 


1?X 

1 C J 


04551 7 


04?04Q 


FM34 ■ 

b ru"t • 


ASCIZ 

• n b A & 




uc J J JO 


0421 1 1 


0?3516 

vC J J I W 


020124 

VC V i C"t 








Uc J Ju** 




VW 1 c^ 








73S1 














7352 


025570 


042523 


026503 


047103 


EM35: 


.ASCIZ 


7353 


025576 


051124 


042040 


042111 






7354 


025604 


023516 


020124 


047503 






7355 


025612 


047125 


020124 


047524 






7356 


025620 


030040 


000 








7357 















2S 

#100000, (ftO) 
#100000, 2(R0) 
(RO)* 
(RO)* 

#40000,DRIVAD 

#DRIV7*1,R0 

4S 

PC 



;J MODEL 

;SET SIGN FOR F 

:BOTH DRIVES 

NEXT PAIR OF DRIVES 
NEXT ACTUL ADDR 
CHECKED ALL? 
NOT rET 



ASCIZ /RKDA WRONG AFTER 'SSEV 



ASCIZ /RK05 BIT NOT SET/ 



ASCIZ /DRY BIT NOT SET/ 



ASCIZ /SOK DIDN'T SET/ 



ASCIZ /SEC-CNTR DIDN'T COUNT TO 0/ 





D1 1 

r 1 1 


C 1 r CO" f 0 


UB • J 1 




f J JO 


UC JOC J 


1 5X 

1 C J 


t\L 1 SOS 
U*» 1 jU J 


041 4SS 
Uh I h j j 




Uc JO jU 


U JC 1 1 O 


0P01 PP 
UcU 1 cc 


044S04 




Uc JO JO 


Uh f 1 Uh 


U jcUh I 


(\LLLL{\ 


' JO 1 


Uc JOh*! 


AA 1 ^ 1 A 
U<t 1 J 1 0 


UhOjcc 


OSP1 1/k 
Ujc I 1 0 


7XA? 




uuu 






7XAX 










7X<k/. 


Uc JO J J 


1 ?x 

1 C J 


041 SOS 

UH 1 JU J 


0414SS 
\IH 1 *» J J 


f jO J 


Uc jOOw 


nS5S1 7 

Ujc J 1 ' 


0SP1 1 A 
Ujc I 1 0 


09019P 
UcU ICC 


' 300 


Uc JoOO 


nA7i 1 1 

U<t rill 


OS1 10X 
UP 1 1 U J 


04PS1 S 
U*IC J 1 J 


7TA7 


Uc JO» •» 


Ujc I 1 0 


OiPl OS 
Uhc I U J 


OSX^^O 
U J j"»hU 


f jOO 


\JCJ f Uc 


Uh f Jcc 


O^XSI A 

UH J J 1 O 


000 
uuu 


7TAQ 

' JOT 










1 JIM 


Uc J f U f 


1 04 


04P1 1 1 

UHC 1 1 1 


0PXS1 
Uc J J 1 O 


f jf \ 


Uc J ' 1 


0301 ?4 

UcU 1 C"* 


04PS07 
U*tc JU 1 


OPOl P4 
Ucw 1 cH 




Uc J ' cc 


041 S?X 

UH 1 Jc J 


0S147S 


0P0101 

UCU I w 1 


1 Jl J 


Uc J ' jU 


U*» ' JUO 


0P01 PP 
UcU 1 cc 


0441 P4 
UHH 1 CH 


7X7L 
1 Jl H 


Uc J ' jo 


0S1 S1 1 

UJ I J I I 


0S1 440 
U J 1 HHV 


041S0S 

U*t 1 jUj 


7X7S 

1 Jl J 


07*k744 


0S1 1 ?4 
U J 1 1 c*» 


000 
uuu 




7X7A 

f J f o 










7X77 

1 Jl 1 


0PS747 

WC J 1 H 1 


ins 

1 U J 


047SPP 

\JH 1 JCC 


OP^iiSPP 
UcO JC c 


7X7A 

1 Jl o 


Uc J ' JH 


Uc 1 JCC 


0P7SP7 

Uc 1 JC 1 


0P01PX 
UcU 1 c J 


7X70 

f J f T 


Uc J ' DC 


04?1 PP 

UHC 1 CC 


0P01 XI 
UcU 1 J 1 


0441 PX 

UHH ' C J 


7XRn 

1 jOu 


Uc J 1 Iv 


0SPS1 7 
\jjcj 1 1 


04P1 1 4 


041040 


7XR1 

I JO 1 


VC J f rO 


0P010S 
UcU 1 u J 


04PSPX 

UHC JC J 


0001 P4 

uuu 1 CH 












7XflX 

' jO J 


UcoUUh 


0471 PS 
Uh » I c j 


0S410S 
U J** t U J 


04PSP0 

UtC JCU 


7XA^ 


UcoU 1 c 


nsplox 

Ujc I U j 


n4Pios 


0S1 040 


r JOJ 


UcoUcU 


0X0S1 X 
U jU J 1 J 


OPOO^iil 
UcwUo 1 


0471 1 1 

UH fill 


7XAA 

r JOO 


n7A07A 
UcOUco 


04PSP4 

UHC JC"« 


0S1 1 PP 
U J 1 1 Cc 


0S019S 

V J\J i C J 


7XA7 

f jO I 


UcOU J*l 


0001 P4 
uuu 1 c** 






7XAA 

1 jOO 










7XAQ 

f jOt 


Ucov JO 


0471 OX 


0S1 1 P4 
U J 1 1 C* 


OPOl 14 

Uc V 1 1 H 


7XQn 


0?A044 


04P1 PP 
u*t c 1 c c 


0P01 XI 
UcU 1 J 1 


044S04 

wHH JUH 


7X01 

f jy 1 


ucou jc 


047104 

wM ' 1 


0S9047 

U JCUH f 


0S1440 

W J 1 HHI/ 


7X0P 

1 JTC 


UCoUoU 


0SP10S 

\J JC 1 w J 


040440 


OSPIO^i 

UJC 1 UU 


7X0X 

f JTJ 


UcoUoo 


0S1 10S 

U J 1 1 U J 


flS1440 


04PS0S 

uHC JUJ 


7X0^ 

f JTH 


UcoU 1 H 


0P01 1 X 

VCw 1 1 J 


nsi 117 

w J 1 1 1 ' 


04P040 

UHCUHU 


7X0^ 

1 JTJ 


09A107 
uco 1 Uc 


0P01 PP 
UcU 1 cc 


04PSPP 
u*tc JCC 


04PS9X 

UHC JC J 


7X0A 

r JTO 


09A1 10 

UCO 1 1 u 


0001 P4 

uuu 1 CH 






7X07 

f J T ' 










7XQA 

r JtO 


UcO 1 1 C 


0S1 10S 

U J 1 1 U J 


OPOl PP 

UcU i c c 


0S1 1 1 7 

UJ 1 1 1 f 


7X00 

f JT T 


Uco 1 CU 


044040 


0P010S 
\JCv I v J 


044S0P 

UHH JUC 


7^ on 


Uco 1 CO 


090194 

UCU 1 CH 


04PS9X 

UHC JC J 


0901 P4 

UcU 1 CH 


7^01 


0?A1 X4 

Uco 1 JH 


0471 1 7 


0S1440 


04PS0S 

V^CJvJ 


r "tUC 


09A149 

Uco 1 "*C 


0901 1 X 
UCU 1 1 J 


0S1 117 


049040 

UHcUHU 


7inx 

f HU J 


09A1 ^0 
Uco 1 jU 


0'>0199 
UbU 1 cc 


049S99 
u<tc JCC 


049S9X 

UHC JC J 




09A1 

Uco 1 JO 


0001 94 

uuu 1 CH 






r ••U J 












09A1A0 

Uco 1 Ow 


04SS99 
ui J JCC 


0S1 10S 
u J 1 1 V J 


041040 

UH 1 UHU 


7407 


vC W I WW 


0591 1 1 
UJC 1 1 1 


0700S4 
ucuv J"* 


0471 1 7 


f "tUO 


0?A174 

Uco 1 r H 


0S1440 
yjj 1 


04PSflS 

V**CJvJ 


0P011X 
UcU 1 1 J 


7400 


vCOCUC 


flS1 1 1 7 

w J 1 1 1 r 


049040 


09fi19> 

UCu 1 Cc 


7410 


026210 


042522 


042523 


000124 


7A11 










7412 


026216 


045522 


051503 


041440 


7413 


026224 


047110 


042107 


040440 



E 11 

NACV11 30A(1052) 21-FEB-78 08:58 PAGE 135 
ERROR MESSAGES 

EN36: .ASCIZ /SEC-CNTR DIDN'T INCRNNT/ 



SEQ 0134 



En37: .ASCIZ /SEC-COUNTR INCRNENTED WRONG/ 



En40: .ASCIZ /DIDN'T GET SC=SA FOR THIS SECTR/ 



En41: .ASCIZ "EROR-R/W/S RDY SHOULD BE SET' 



En43: .ASCIZ /UNEXPECTED RK11 INTERRUPT/ 



En44: .ASCIZ /CNTRL RDY DIDN'T SET AFTER SEEK OR DR RESET/ 



En45: .ASCIZ /^RR OR HE BIT SET ON SEEK OR DR RESET/ 



EN46: .ASCIZ /RKER BIT, ON SEEK OR DR RESET/ 



En47: .ASCIZ /RKCS CHNGD AFTR FUNCTION WAS DONE/ 



F 11 

MD-n-CZRUKF. RK11 BASIC LOGIC TEST 2 NACV11 30A(10S2) 21-FEB-78 08:58 PAGE 136 
CZRKICF.P11 21-FEB-78 08:51 ERROR MESSAGES 



SEQ 0135 



7^1 L 
f H 1 




31 
U JC 1 uo 


0301 33 
Ucu 1 CC 


0C3S0A 
U JC jUO 


I H \ J 


n3A3in 


nz. 1 CI A 

Uh I j 1 0 


A// CT/ 
UhH JCH 


0471 1 7 
UH f 1 1 f 


f H 1 O 


UcOchO 


U J jhhU 


OS1 SOI 

UJ 1 JU I 


04 3040 
UhcUhU 


7/.1 7 


UcOcJH 


rtZ. 71 1 7 
Uh I \ \ ( 


0001 OS 
UUU 1 U J 




7A 1 B 










7A1 Q 


UcOcoU 


ft37<33 


A37S37 


0301 3X 
UCU 1 CJ 




UcOcOO 


fXLOy 33 
Uh^ I CC 


0301 XI 
UcU 1 J 1 


044S04 
UhH JUH 


7/. 51 


UcOC f H 


A/ 71 A/. 

Uh ' 1 Uh 


0C304 7 
U jcUh ( 


041440 
UH 1 HHU 


7^35 
f HCC 


UcO jUc 


UHc J 1 H 


OC1 1 01 
U J 1 1 U 1 


000 
UUU 












TLOL 

f •»£•• 


n3A?rt7 


133 
1 CC 


0SX4S7 
UJ jH jf 


0S14S7 
U J 1 H J f 


1 *^Cj 


n5<,xi L 

UcO 3 1 H 


(\<\^ C\L(\ 
U J 1 UHU 


0S4S04 
U3H JUH 


043040 
UHCUHU 


f McO 


UcO JCC 


04 31 1 1 
UHc 1 1 1 


03XS1 A 
Uc J J 1 O 


0301 34 
UCU 1 CH 


7L77 


UcO J 


UHc JC J 


0301 34 
UCU 1 CH 


04 X 1 11 1 
UH J 1 U 1 


7 LOU. 


UcO J jO 


\1J 1 1 CH 


0S1440 
U 3 1 hHU 


043S0S 
UhC jU J 




n7AX44 

UcO JHH 


n3ni 1 'X 

Ucu 1 1 J 


0S1 117 

U J 1 1 1 r 


04 3040 
UHCUHU 


7LXn 


UcO J JC 


Apni 33 

UCU 1 CC 


043S33 
UH CjCC 


043S3X 


7itl 
f Hj \ 


UcO jou 


UUU 1 CH 






7LX^ 

f •» JC 










I •» J J 


n3A'XA3 

UcO JOC 


UH J JCC 


040S04 
UHU JUH 


041 440 

UH 1 HHU 




Uc03' U 


UH 1 \ \ \} 


0431 07 
UHC 1 Uf 


040440 

UHUHHU 


» J J 


UcO } 1 o 


nS31 HA 
u JC 1 uo 


0301 3? 
UCU 1 CC 


043S3X 

UH cjCj 


7^^<^ 

f H JO 


n9A4n4 

UcOHUH 


UH J JU 3 


000 

UUU 
















UcOHU ' 


1 U J 


0S31 1<^ 

U JC 1 1 o 


04A1 3? 

UHD I CC 




n7A4i4 

UCOH 1 H 


U J 1 UHv 


0S4S04 

U JH JUH 


043040 

vH C UH V 




UCOHcc 


0431 1 1 

UHC 1 1 1 


03XS1/i 
UC J J 1 o 


0?'1?4 
UC 1 CH 




UcOH jU 


n4<,i nx 

UHO 1 \JJ 


0301 33 

UCU 1 CC 


OSl SOI 

U J 1 JU [ 


7L.L') 


UcOH JO 


04 '^440 

UH JHHU 


0?01 1 7 

UCU 1 1 1 


040S37 

UHU JC i 




UcOHHH 


UCU 1 Cj 


04?S?X 


000134 

UUU 1 CH 


7LLL 










( HHj 


UcOH JC 


04 71 OX 
UH f 1 U J 


0S1 1 34 

U J 1 1 CH 


0301 1 4 

UCU 1 1 H 




UcOHOU 


UH C 1 c c 


0301 XI 

UCU 1 J 1 


044S04 

UHH JUH 


7LL7 


UCOHOO 


047104 

VH f 1 UH 


0SP047 

U JCUH f 


051440 

U J 1 HHU 


7LLk 
f ••HO 


UcOH f H 


0S31 OS 

U JC 1 U J 


047440 

UH f H H U 


0301 1 f\ 

UCU 1 1 u 


7LLQ 


UCO JVC 


0S1 1 37 

U J 1 1 c » 


037S34 

UC ' JCH 


04AS0^ 

UHO JUO 


7L^C\ 
f H jU 


UcO J 1 u 


0301 34 
UCU 1 CH 


0S31 3X 
U JC 1 Cj 


OSl 1 01 

U J 1 1 U 1 


7c^^ 

f *i J I 


UCO J 1 o 


044S34 

UHH JCH 


04^S1/k 
UH J J 1 O 


04X040 

UH JUHU 


f H JC 


n9AS34 

UcO JCH 


n47SP3 
UH I JCC 


0301 1 S 
ucu 1 1 J 


043074 

UHCU ' H 


f H ^ J 


UCO J JC 


UH J J^J 


0404SS 

UHUH J J 


OSl 104 


f M 


UCO jHu 


UJ 1 JUJ 


00007^ 

UUUU ' u 




f H J J 










1 H JO 


n7AS44 

VCO JHH 


04?S10 

UH C J 1 U 


04 7440 

UH f HHU 




7A57 

f H J 1 


wC W J JC 


0S1 105 




0^71 1 7 


f 


0P6S60 

vCv JOv 


0S3440 


05?1 ?? 

U J C ICC 


043057 


74 so 
f Hjy 


UCO Jon 


nspi 1 s 

U^C 1 1 J 


0S1440 

U J 1 HHU 


V^VJCH 




VC V J f H 




04 71 1 1 




f HO 1 


ucoouc 








r HOC 


VCOO 1 u 








f HOV 


vCOw 1 0 






000 












7465 


026623 


122 


042113 


020101 


7466 


026630 


047111 


051103 


047115 


7467 


026636 


042124 


053440 


047522 


7468 


026644 


043516 


047440 


020116 


7469 


026652 


051127 


026524 


046506 



EM50: 



EH51 



En52: 



En53: 



En54: 



EM55; 



EM56; 



.ASCIZ "R/W/S RDr DIDN'T CLEAR' 



.ASCIZ "R/W/S RDY DIDN'T SET AFTR SEEK OR DR RESET" 



.ASCIZ /RKDA CHNGD AFTR SEEK/ 



.ASCIZ /CNTRL RDY DIDN'T CLR AS GO WAS SET/ 



.ASCIZ "CNTRL RDY DIDN'T SET ON WRT/FMT STARTING FROM <DSK-ADRES>' 



ASCIZ "HE OR ERR ON WRT/FHT STARTING FROM <DSK-AORES>' 



.ASCIZ /RKDA INCRHNTD WRONG ON WRT-FMT/ 



HD-11-CZRlCICF . Run BASIC LOGIC TEST 2 
CZRKKF.PII 21-rEB-78 08:51 



HACrll 30A(1052) 
ERROR MESSAGES 



G 11 

21-fEB-78 08:58 PAGE 137 



SEO 0156 



7470 

7471 

7472 

7473 

7474 

7475 

7476 

7477 

7478 

7479 

7480 

7481 

7482 

7483 

7484 

7485 

7486 

7487 

7488 

7489 

7490 

7491 

7492 

7493 



026660 000124 



026662 
026670 
026676 
026704 
026712 

026720 
026726 
026734 
026742 
026750 
026756 

026757 
026764 
026772 
027000 
027006 

027014 
027022 



045522 
042111 
053117 
047440 
020124 

045522 
041516 
020104 
020107 
052122 
000 

122 
042523 
053440 
020122 
020122 

045522 
047522 



041527 
023516 
043122 
020116 
046506 

040502 
046522 
051127 
047117 
043040 



042513 
026124 
052122 
042122 
046506 



042040 
020124 
047514 
051127 
000124 

044440 
052116 
047117 
053440 
052115 



020122 
047117 
047440 
047440 
000124 



EH57: 



.ASCIZ /RKUC DIDN'T OVRFLO ON WRT FHT/ 



EM60: 



.ASCIZ /RKBA INCRNNTD WRONG ON URT FHT/ 



EM61 



.ASCIZ /RKER SET. ON WRT OR RD OR FHT/ 



041104 042440 En62: 
000122 



.ASCIZ /RKDB EROR/ 



MD-11-CZRKKF . RRll BASIC LOGIC TEST 2 



ZRKKF . 


pn 


P1-FEB-78 


08:51 






027026 


045522 


040504 


044440 


7A95 


027034 


041516 


046522 


052116 


7^96 


027042 


020104 


051127 


047117 


7^97 


027050 


020107 


047117 


051040 


7498 


027056 


020104 


051117 


051040 


7499 


027064 


020104 


046506 


000124 


7500 










7501 


027072 


045522 


041527 


042040 


7502 


027100 


042111 


023516 


020124 


7503 


027106 


053117 


043122 


047514 


7504 


027114 


047440 


020116 


042122 


7505 


027122 


047440 


020122 


042122 


7506 


027130 


043040 


052115 


000 


7507 










7508 


027135 


122 


041113 


020101 


7509 


027142 


047111 


051103 


047115 


7510 


027150 


042124 


053440 


047522 


7511 


027156 


043516 


047440 


020116 


7512 


027164 


042122 


047440 


020122 


7513 


0271 72 


042122 


043040 


052115 


7514 


02/200 


000 






7515 










7516 


027201 


111 


041516 


051117 


7517 


027206 


042522 


052103 


044040 


7518 


027214 


040505 


042504 


020122 


7519 


027222 


051106 


046517 


023440 


7520 


027230 


042523 


052103 


051117 


7521 


027236 


000047 






7522 










7523 


027240 


040504 


040524 


042440 


7524 


Q272iib 


051122 


051117 


GOO 


7525 










7526 


027253 


103 


052116 


046122 


7527 


027260 


051040 


054504 


042040 


7528 


027266 


042111 


023516 


020124 


7529 


02727t, 


042523 


020124 


047117 


7530 


027302 


051040 


027504 


046506 


7531 


027310 


020124 


052123 


051101 


7532 


027316 


044524 


043516 


043040 


7533 


027324 


047522 


020115 


042074 


7534 


027332 


045523 


040455 


051104 


7555 


027340 


051505 


000076 




7536 










7537 


027344 


042510 


047440 


020122 


7538 


027352 


051105 


020122 


047117 


7539 


027360 


051040 


027504 


046506 


7540 


027366 


020124 


05212? 


051101 


7541 


027374 


044524 


043516 


043040 


7542 


027402 


047522 


020115 


042074 


7543 


027410 


045523 


040455 


051104 


7544 


027416 


051505 


000076 




7545 










7546 


027i,22 


051127 


047117 


020107 


7547 


027430 


051104 


053111 


020105 


7548 


027436 


042111 


044440 


020116 


7549 


027444 


045522 


051504 


040440 
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SEQ 0137 



EN63: 



En64: 



EN65: 



En66: 



EH67: 
EM70: 



EM71 



Efl72: 



.ASCIZ /RKOA INCRHNTD WRONG ON RD OR RD FHT/ 



.ASCIZ /RKUC DIDN'T OVRFLO ON RD OR RD FHT/ 



.ASCI2 /RKBA INCRNNTD WRONG ON RD OR RD FHT/ 



.ASCIZ /INCORRECT HEADER FROM 'SECTOR'/ 



.ASCIZ /DATA ERROR/ 



.ASCIZ "CNTRL RDY DIDN'T SET ON RD/FMT STARTING FROM <DSK-ADRES>" 



.ASCIZ "HE OR ERR ON RD/FHT STARTING FROn <DSK-ADRES>" 



ASCIZ /WRONG DRIVE ID IN RKDS AFTER SEEK/ 



N0-11-CZRKKF . RKll BASIC LOGIC TEST 2 
CZRICICF.Pll 21-FEB-78 08:51 



7S50 


02745? 


052106 


0S1105 


051440 


7551 


027460 


042505 

V"* ^ JyJ J 


0001 1 3 

wVV 1 1 J 




7552 










7553 


027464 


051110 

V^ 1 1 1 V 


053504 


042522 

V** C c c 


7554 


027472 


050040 

V V V~ V 


0461 1 7 


026514 

VC U • ~ 


7555 


027500 


051 104 

V </ < 1 V"* 


020126 

VC V 1 c u 


0421 1 1 


7556 


027506 

vc ■ ^ wu 


041040 

V^ 1 v~v 


0521 1 1 

W ^ C 1 1 I 


024123 

VC ^ • C V 


7557 


027514 

VC 1 J t ^ 


031461 


030455 


024465 

VC ~~u ^ 


7558 


027522 

VC ■ ^ c c 


051440 


046110 


041104 


7559 


027550 

VC ' ^ J V 


020105 

VC V 1 V ^ 


046103 

V~ w 1 V ^ 


000122 

WW ICC 


7560 










7561 


027536 

VC ' J J\J 


051110 

V •/ ) 1 IV 


053504 

\i J J J v~ 


042522 

V~ C V c c 


7562 


027544 

V C ( 


050040 

\J J yj v~ V 


0461 1 7 


026514 

VC U 1 ^ 


7563 


027552 

VC f J 


0471 1 1 


051 124 


050125 

V V ) c ^ 


7564 


027560 


044524 


043516 


042040 


7565 


027566 

VC ' J\M\M 


044522 


020126 

VC V 1 C V 


020043 

VC V V ~ J 


7566 


027574 


047516 


020124 


051120 


7567 


027602 


047123 


000124 




7568 










7569 


027606 

V C ' www 


051 104 


0531 1 1 


021440 


7570 


027614 


042040 


0421 1 1 

V^ C 1 1 1 


023516 


7571 


027622 


020124 


0471 1 1 


051 124 


7572 


027630 


050125 


020124 


043101 


7573 


027636 


042524 


020122 


051110 


7574 


027644 


053504 


042522 


050040 


7575 


027652 


046117 


000114 




7576 










7577 


027656 


041523 


020120 


044504 


7578 


027664 


047104 


052047 


051440 


7579 


027672 


052105 


040440 


052106 


7580 


027700 


051105 


051440 


042505 


7581 


027706 


020113 


040527 


020123 


7582 


027714 


047504 


042516 


000 


7583 










7584 


027721 


122 


042113 


020101 


7585 


027726 


044103 


047101 


042107 


7586 


027734 


040440 


052106 


051105 


7587 


027742 


042040 


044522 


020126 


7588 


027750 


042522 


042523 


000124 


7589 










7590 


027756 


040504 


040524 


042440 


7591 


027764 


047522 


020122 


052101 


7592 


027772 


053440 


051117 


021504 


7593 


030000 


000 






7594 










7595 


030001 


103 


052116 


046122 


7596 


030006 

V ^ W W V W 


051040 


05450^ 


042040 


7597 


030014 


042111 


023516 


020124 


7598 


030022 


042523 


020124 


043101 


7599 


030030 


042524 


020122 


042122 


7600 


030036 


041440 


045510 


000 


7601 










7602 


030043 


105 


051122 


047440 


7603 


030050 


020122 


042510 


047440 


7604 


030056 


020116 


042122 


041440 


7605 


030064 


045510 


000 
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EM73: .ASCIZ /HRDURE POLL-ORV 10 BITS(13-15) SHLOBE CLR/ 



SEQ 0138 



En74: .ASCIZ /HRDURE POLL-INTRUPTING DRIV # NOT PRSNT/ 



En75: .ASCIZ /DRIV » DIDN'T INTRUPT AFTER HRDURE POLL/ 



En76: .ASCIZ /SCP DIDN'T SET AFTER SEEK WAS DONE/ 



En77: .ASCIZ /RKDA CHANGD AFTER DRIV RESET/ 



EMIOO: .ASCIZ /DATA EROR AT WORD'/ 



EH101: .ASCIZ /CNTRL RDY DIDN'T SET AFTER RD CHK/ 



EM102: .ASCIZ /ERR OR HE ON RD CHK/ 



J 11 



0-11- 


CZRKKF . 


RK11 BASIC LOGIC 


TEST 2 


MACY11 


30A(1052) 


21-FEB-78 08:58 PAGE 140 


ZRKKF 


• P1 1 


?1 -FFB-78 


08-51 




ERROR 


MESSAGES 




7606 
















7607 


030067 


103 


042523 


047440 


Eni03: 


•ASCIZ 


/CSE ON RO CHK/ 


7608 


030074 


0201 16 


042122 


041440 








7609 


030102 


045510 


000 










7610 
















7611 


030105 


1 22 


053513 


020103 


Eni04: 


.ASCIZ 


/RKUC DIDN'T OVERFLO ON RD CHK OR WRT 


7612 


030112 


044504 


047104 


052047 








7613 


030120 


047440 


042526 


043122 








76U 


030126 


047514 


047440 


020116 








7615 


030134 


042122 


041440 


045510 








761^ 


030142 


047440 


020122 


051127 








7617 


030150 


020124 


044103 


000113 








7618 
















7619 


030156 


045522 


040504 


044440 


Eni05: 


.ASCIZ 


/RKDA INCRMNTD WRONG ON RD CHK/ 


7620 


030164 


041516 


046522 


052116 








7621 


030172 


020104 


051 127 


047117 








7622 


030200 


020107 


0471 1 7 


051040 








7623 


030206 


020104 


044103 


000113 








7624 
















7625 


030214 


045522 


040502 


041440 


Eni06: 


.ASCIZ 


/RKBA CHANGD AFTER RD CHK/ 


7626 


030222 


040510 


043516 


020104 








7627 


030230 


043101 


042524 


020122 








7628 


030236 


042122 


041440 


045510 








7629 


030244 


000 












7630 
















7631 


030245 


115 


046505 


051117 


EH107: 


•ASCIZ 


/HEHORY WORD CHANGED AFTER RD CHK/ 


7632 


030252 


020131 


047527 


042122 








7633 


030260 


041440 


040510 


043516 








76 3A 


030266 


042105 


040440 


052106 






f 


7635 


030274 


051105 


051040 


020104 








7636 


030302 


044103 


000113 










7637 
















7638 


030306 


047103 


051124 


020114 


EM1 10: 


.ASCIZ 


/CNTRL ROY DIDN'T SET AFTER WRT CHK/ 


7639 


030314 


042122 


020131 


044504 








7640 


030322 


047104 


052047 


051440 








7641 


030330 


052105 


040440 


052106 








7642 


030336 


051105 


053440 


052122 








7643 


030344 


041440 


045510 


000 








7644 
















7645 


030351 


110 


020105 


051117 


EM111 : 


.ASCIZ 


/HE OR ERR ON WRT CHK/ 


7646 


030356 


042440 


051122 


047440 








7647 


030364 


020116 


051127 


020124 








7648 


030372 


044103 


000113 










7649 
















7650 


030376 


051127 


052111 


020105 


EM112: 


.ASCIZ 


/WRITE CHECK EROR/ 


7651 


030404 


044103 


041505 


020113 








7652 


030412 


051105 


051117 


000 








7653 
















7654 


030417 


122 


042113 


020101 


EM113: 


.ASCIZ 


/RKDA INCRMNTD WRONG ON WRT CHK/ 


7655 


030424 


047111 


051 103 


047115 








7656 


030432 


042124 


053440 


047522 








7657 


030440 


043516 


047440 


020116 








7658 


030446 


051127 


020124 


044103 








7659 


030454 


000113 












7660 
















7661 


030456 


045522 


040502 


044440 


EM114: 


.ASCIZ 


/RKBA INCRHNTD WRONG ON WRT CHK/ 



MD-ll-CZRICKF . RKII BASIC LOGIC TEST 2 
CZRKKF.PIl 21-FEB-78 08:51 



7662 


030464 


041516 


046522 


052116 


7663 


030472 


020104 


051127 


047117 


7664 


030500 


020107 


047117 


053440 


7665 


030506 


052122 


041440 


045510 


7666 


030514 


000 






7667 










7668 


030515 


122 


041113 


020101 


7669 


030522 


047111 


051103 


047115 


7670 


030530 


042124 


020054 


044527 


7671 


030536 


044124 


044440 


040502 


7672 


030544 


051440 


052105 


000 


7673 










7674 


030551 


127 


047522 


043516 


7675 


030556 


046440 


046505 


051117 


7676 


030564 


020131 


047514 


040503 


7677 


030572 


044524 


047117 


041440 


7678 


030600 


040510 


043516 


042105 


7679 


030606 


053440 


052111 


020110 


7680 


030614 


041111 


020101 


042523 


7681 


030622 


000124 






7682 










7683 


030624 


045522 


030461 


042040 


7684 


030632 


042111 


023516 


020124 


7685 


030640 


047111 


051124 


050125 


7686 


030646 


020124 


044127 


047105 


7687 


030654 


044440 


042504 


053440 


7688 


030662 


051501 


051440 


052105 


7689 


030670 


000 






7690 










7691 


030671 


122 


030513 


020061 


7692 


030676 


044504 


047104 


052047 


7693 


030704 


044440 


052116 


052522 


7694 


030712 


052120 


040440 


052106 


7695 


030720 


051105 


051440 


020113 


7696 


030726 


040527 


020123 


047111 


7697 


030734 


052111 


040511 


042524 


7698 


030742 


000104 






7699 










7700 


030744 


041523 


020120 


042523 


7701 


030752 


020124 


042502 


047506 


7702 


030760 


042522 


051440 


042505 


7703 


030766 


020113 


047503 


050115 


7704 


030774 


042514 


042524 


000104 


7705 










7706 


031002 


045522 


030461 


042040 


7707 


031010 


042111 


023516 


020124 


7708 


031016 


047111 


05112^ 


050125 


7709 


031024 


020124 


043101 


042524 


7710 


031032 


020122 


045523 


041440 


7711 


031040 


046517 


046120 


052105 


7712 


031046 


042105 


000 




7713 










7714 


031051 


103 


052116 


046122 


7715 


031056 


051040 


051505 


052105 


7716 


031064 


042040 


042111 


023516 


7717 


031072 


020124 


046103 


040505 
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SEO OUO 



EMUS: .ASCIZ /RKBA INCRMNTD, WITH IBA SET/ 



Enil6: .ASCIZ /WRONG MEnORY LOCATION CHANGED WITH IBA SET/ 



EM117: .ASCIZ /RKll DIDN'T INTRUPT WHEN IDE WAS SET/ 



EH120: .ASCIZ /RKII DIDN'T INTRUPT AFTER SK WAS INITIATED/ 



EH121: .ASCIZ /SCP SET BEFORE SEEK COMPLETED/ 



EM122: . ASCIZ /RKll DIDN'T INTRUPT AFTER SK COMPLETED/ 



EM123: .ASCIZ /CNTRL RESET DIDN'T CLEAR 'SCP'/ 



W-11-C2RICICf 
CZRKKF.PII 



RIC11 BASIC LOCK TEST 2 
i;1-FEB-78 08:51 



L 11 

MACYll 30A{1052) 21-FEB-78 08:58 PAGE U2 
ERROR MESSAGES 



771 A 

r r 1 O 


051 1 no 


VC w 1 C C 


0^1447 


050105 


771 Q 


051 1 OA 


AAAAA 7 
UUUl/H » 






77?0 










77?1 


051 110 


vH J JCC 


0504A1 


042040 

W~ C W"* W 


f ' cc 


051 1 1 A 


04?1 1 1 
VHC 1 1 1 


025S1# 


020124 

VC w 1 C *f 


77?^ 


051 1 24 

W J 1 1 CH 


7 1 1 1 


0S1 1 24 

M J 1 1 


050125 

V J V 1 C J 


1 f tH 


051 1 52 

V J 1 1 jC 


Ucv 1 c** 


0451 01 

VH J 1 w 1 


042524 

V^ C c ~ 


77?S 
I 1 Cj 


051 140 


vCv 1 CC 


042122 

v"f C 1 c c 


042040 

V~ C W~ V 


77?A 
f r Co 


051 14A 


0^7117 


000105 

WVV \V J 




77?7 

f t CI 










77?R 


051 1 52 


047105 


051 124 


0201 14 

VC W 1 1 ^ 


77?9 


051 160 


042522 

w** C JC c 


042525 

V^ C ^ C J 


020124 

VC V I ~ 


77^0 


w J 1 1 DO 


O"* J \/"t 


047104 


052047 

V ^ t V^ • 


77^1 


051 1 74 


V«» 1 w 


051114 

V J 1 1 1 "1 


051040 

V J 1 V^ V 


77^? 


051202 

1 CvC 


045505 

V*t J J V J 


051 51 1 


051124 

V J 1 1 c~ 


775^ 


051210 


000 

WW 






7754 










7755 


05121 1 


122 


030513 

W JW^ 1 J 


020061 

Vb VV W ■ 


7756 


051216 


044504 


0471C4 


052047 


7757 




044440 


0521 16 

V J C • 1 o 


052522 


7758 




0521 20 

V JC ' C W 


040440 


020124 

V C V 1 c ~ 


7759 




050105 

W J V 1 V J 


0201 25 

VC W 1 C J 


042514 

V~ t ^ 1 ^ 


7740 


051246 


042526 

V"V c ^c u 


0001 14 

WWW 11^ 




7741 










7742 


051252 

VJ 1 C JC 


045522 

w~ ^ ^ c c 


030461 

W J W^ W 1 


044440 


7745 


051260 

w J 1 C O V 


052116 

V ^ C 1 1 o 


052522 

V JC ^C 


052120 

V^ b 1 b V 


7744 


051266 

V J 1 C OO 


042105 


040440 


020124 

Vb V 1 b ^ 


774 S 

f f H J 


w J 1 t » " 


051 1 27 

V J 1 1 C f 


0471 1 7 


020107 

VC V 1 V • 


7746 


V J 1 JVC 


050105 


020125 


042514 


7747 


051510 

V J 1 J 1 V 


042526 

V^C ^ c w 


000114 

VWW 11^ 




7748 










7749 


051314 


042447 


051 122 


041040 


7750 


031322 


0521 1 1 

V^fc III 


020047 


044504 


7751 


031330 


047104 


0520A7 


051440 


7752 

1 f JC 


031336 


052105 


044440 


0201 16 


7753 


031344 


045522 


051105 


000 


7754 










7755 


031351 


110 


020105 


051117 


7756 


031356 


042440 


051 122 


042040 


77S7 


031364 


0421 1 1 

V~C III 


023516 

W L V ^ I W 


020124 


7758 


031372 


042523 


000124 

WWW 1 t ~ 




7759 










7760 


031376 


045522 


051105 


042440 


7761 


031404 


047522 


000122 




7762 










7763 


031410 


0541 16 


020103 


044502 


7764 


031416 


020124 


044504 

W^ ^ ^ w 


047104 


7765 


031424 


052047 


051440 


052105 


7766 


031432 


000 

WWW 






7767 










7768 


031433 


122 


030513 


020061 


7769 


031440 


044504 


047104 


052047 


7770 


03U46 


044440 


052116 


052522 


7771 


031454 


052120 


047440 


020116 


7772 


031462 


047523 


052106 


042440 


7775 


03U70 


047522 


000122 





J:«»124: .ASCIZ /RKll DIDN'T INTRUPT AFTER RD DONE/ 



EM125: .ASCIZ /CNTRL RESET DIDN'T CLR REGISTR/ 



EH126: .ASCIZ /RKll DIDN'T INTRUPT AT CPU LEVEL/ 



Eni27: .ASCIZ /RKll INTRUPTEO AT WRONG CPU LEVEL/ 



EM130: .ASCIZ /'ERR BIT' DIDN'T SET IN RKER/ 



EM131: .ASCIZ /HE OR ERR DIDN'T SET/ 



Eni32: .ASCIZ /RKER EROR/ 



EH133: .ASCIZ /NXC BIT DIDN'T SET/ 



EH134: .ASCIZ /RKll DIDN'T INTRUPT ON SOFT EROR/ 



HO-11-CZRRKf . RK11 BASIC LOGIC TEST 2 MCrll 
CZRKICF.Pll 21-fEB-78 08:51 ERROR 



77 fi* 












7775 


031474 


04251 5 


A A 4 T A 

020130 


Ay y CAT 

044502 


r Ml T C 

Enl 35 


7776 


031 502 


A r 4 c ^ ^ 

051 524 


A i i i i A 

044440 


A/ 1 C i ^ 

041 516 




7777 


031510 


046522 


A r ^ 4 4 Z 

0521 16 


A ^ A 4 Ay 

0201 04 




7778 


031516 


A r 4 4 ^7 

051127 


A i T 4 4 7 

0471 1 r 


AO^CA7 

0c670r 




7779 


031524 


045522 


A C 4 PAT 

051503 


AAA 

000 




7780 












7781 


031531 


4 ^T 

127 


AC 1 C ^ A 

051 520 


Ay 7Ay A 
Oh70hO 


CMI T7 

En13f 


7782 


031536 


A r ^ 4 4 9 

052117 


A y 4 / y A 

041440 


Ay "3 c i y 

042514 




7783 


031544 


A P 4 4 A 4 

051 101 


AAA 

000 






7784 












7785 


031547 


i Ay 


AC 01 A1 

052101 


AOA1 A1 

OcOlOl 


C Ml /. A 

zni sO 


7786 


A T 4 c r / 

031554 


AC i i AC 

051105 


AC 1 1 1 7 

051 1 1 f 


A/ 7/ / A 

04f s40 




7787 


A T 4 C X ^ 

031562 


A^ Ai 1 X 

0201 16 


AC 1 1 oy 
051 1 24 


A/ 71 A1 

0*tf 101 




A A 

7788 


A94 

031570 


A/ T 4 ^T 

043123 


AC 1 1 AC 

051 105 


A/ TA/ A 

043040 




7789 


031576 


A/ 7C OO 

047522 


A^AI 1 C 

0201 1 5 


A/ /. CA/ 

044304 




7790 


A V 4 X A / 

031604 


A/ C C OT 

045523 


AC OAV A 

0)<:040 


A0A1 1 7 

OcOl 1 1 




7791 


A 9 4 ^ 4 ^ 

031612 


AC ^ i y 

052124 


AAA1 T1 

0001 31 






7792 












7793 


AT 4 < 4 

031616 


A/ ^A/ 7 

04204 7 


A/ /COO 

044d«;«; 


A0A1 OA 

0c01c6 


C HI L 1 

tni s 1 


7794 


A T 4 J 

031624 


A^T / / T 

023443 


ACAA/ A 

050040 


A/ OCOO 

Osc^cc 




7795 


A7 1 ^ T ^ 

031632 


A/ ^T 

0425^3 


AC O 1 1 ^ 

05^1 Id 


AOAAC/. 

OcOO)*t 




779b 


A V4 A 

031640 


AC ^CA^ 

05250^ 


A0A1 0/ 

0201 


A/ 7C 1 A 

04 731 6 




7797 


A T 4 ^ / ^ 

031646 


A*) A 1 7 

020124 


f\i 71 1 1 

04 ^1 1 1 


A/ / CA/ 

044304 




7798 


AT i d.C i 

031654 


A/ ACAT 

040503 


A/ OCO/ 


AAA1 A/ 
0001 US 




7799 


A71 0 

031 66<: 


A/ 7Ay A 

04 70«iO 


A0A1 1 7 
OdO 1 1 I 


U3c jUc 


cm A 3 




AT1 A7A 
0316f 0 


AC/ COT 

Ojm Jc3 


A/ TLLn 

0*» f mmU 


UcU 1 1 0 






ATI 

03 I6r6 


AC 0117 

OjcI 1 f 


A/ 0Q1 A 

Omc J 1 0 


wcU 1 CC 




> oOc 


ATI 7A/ 


A/ AC1 A 

OmU J 1 U 


A/.T1 1 / 

Us 3 1 1 *• 


t\L7LLI\ 
Us f s s U 






ATI 7i 0 

031 rl^ 


A0A1 A/L 

OeOl Oo 




U3UU33 






ATI 79A 

031 r cO 


A/.TAiLC 








7805 












"70 A^ 

7806 












7fi A7 












70A0 

7808 












7809 












78 lU 




ATI 70Z 
031 fCH 








781 1 












7812 












781 3 












781 A 


ATI 7oy 

031 724 


AA1 1 1 A 

001 116 


AA1 1 ^O 

001 16c 


AAAAAA 

000000 


ATI • 

D 1 1 : 


781 5 












rolo 


ATI 7T0 

031 IJC 


AA 111^ 

00 1 1 16 


AA1 1 AO 

OUT 1 Oc: 


AAI 1 AA 

UU 1 1 OS 


h T 0 • 

U 1 c . 




ATI 7£n 

031 r'*M 


AAAAAA 

000000 








f 818 












7819 


ATI 7/ ^ 

031 742 


AA 111^ 

001 116 


AA1 1 iiO 

00 1 1 Oc 


AAI 1 A/ 

UUl 1 Os 


A T Ort • 

V 1 cU : 


700A 


ATI 7CA 

031 r jO 


AA1 1 £.£. 

001 loo 


(\t\^ 1 7A 


uuuuuu 




7001 

78c 1 












70 *i O 

7822 


ATI 7C^ 

031 756 


AA1 11^ 

001 116 


AAAAAA 

000000 




DTcl : 


70 

7825 












7824 


031762 


001116 


001162 


001164 


0T26: 


r Oc J 


(\X^ 770 










7826 












7827 


031774 


001116 


001162 


001164 


DT54: 


7828 


032002 


001166 


001170 


001172 




7829 


032010 


001174 


001176 


001200 





n 11 
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ESSA6ES SEQ 0142 

.ASCIZ /HEX BITS INCRHNTD WRONG-RKCS/ 

.ASCIZ /UPS NOT CLEAR/ 

.ASCIZ /DATA EROR ON TRANSFER FROM DISK TO TTV/ 

.ASCIZ /'DRIV #• PRESENT. BUT NOT INDICATED/ 
.ASCIZ / NO BUSY ON OTHER HALF OF RK-05F/ 



.EVEN 

•SBTTL ERROR DATA POINTERS 

.WORD SERRPC.SREGO.O 

.WORD SERRPC.SREGCSREGl.O 

.WORD SERRPC,$REG0,$REG1,SREG2.SREG3.0 

.WORD $ERRPC,0 

.WORD $ERRPC,$REG0,SREG1,(REG2,0 

.WORD $ERRPC,$REG0,$REG1,5REG2,$REG3.$REGA.$RE65,$REG6.$REG7.0 





CZRKKF , 


RK11 BASIC LOGIC 


TEST 2 


HACY11 


30A(1052) 


u L n ^ ^ 1 


P1 1 

■ r 1 1 




Uo . J 1 






1 A r U 1 11 1 C 


7830 


032016 












7831 














7832 














7833 














783A 














7835 












.SBTTL E 


7836 














7837 


032020 




Oil ^30 
n't 1 3cw 


020040 


DH2: 


.ASCIZ / 


7838 


032026 




U*»33U3 


042101 






7839 


032034 


vCv 1 vH 


0700^0 

WCWWHW 


051040 






7840 


032042 




nA31 3A 
wHc 1 cO 


000 






7841 














7842 


032047 




OSOO^O 

U J wwHw 


020103 


DH4: 


.ASCIZ / 


7843 


032054 




WHCHHU 


050130 






7844 


032062 


\jjc I yjj 


07OOA0 


051040 






7845 


032070 


041505 


0^71 ?A 

vHC 1 CO 


000 






7846 














7847 


032075 




OSOO^O 

U3UUHI/ 


020103 


DH5: 


.ASCIZ / 


7848 


032102 


0?0040 


0S1 0^0 

U J 1 wHw 


041505 






7849 


032110 


VH£ 1 CO 


Uww 








7850 














7851 


032113 




oson^o 

U JwwHw 


020103 


DH14: 


.ASCIZ / 


7852 


032120 




0S1 0^0 

\J J 1 w"*w 


041513 






7853 


032126 




0700^0 

wCwwHw 


051040 






7854 


032134 


04P51 ^ 

V*tC J 1 .J 


0701 77 


020040 






7855 


032142 




v3 J3 1 J 


000103 






7856 














7857 


032150 


0700^0 


041 570 

wH 1 JCv 


000 


DH21: 


.ASCIZ / 


7858 














7859 


032155 


040 


0^00^0 

w Jww*»w 


020103 


D>^0: 


.ASCIZ / 


7860 


032162 


0P0040 


0700^0 

UC uwHw 


045522 






7861 


032170 




0700^0 


020040 






7862 


032176 


04SSPP 


0S11 OS 


020040 






7863 


032204 




045577 


051504 






7864 


032212 


000 

vvv 










7865 














7866 


032213 


0^0 




020103 


DH34: 


.ASCIZ / 


7867 


032220 


070040 




045522 






7868 


032226 




000 

www 








7869 














7870 


032231 




0^00^0 

w JwwHw 


020103 


DH35: 


•ASCIZ / 


7871 


032236 


020040 


047573 

w^C JC-J 


026503 






7872 


032244 


vH » 1 1/ J 


0S1 1 ?A 


000 






7873 














7874 


032251 




OSOO^O 

w JwwHw 


020103 


DH36: 


.ASCIZ / 


7875 


032256 




0700^0 


051120 






7876 


032264 


0471P3 


0701 7^ 

wcw 1 


047040 






7877 


032272 


0521 30 


041&55 


052116 






7878 


032300 


000 

www 










7879 














7880 


032301 


0^0 

wHw 




020103 


DH40: 


.ASCIZ / 


7881 


032306 


0P0040 


V ^ 1 v 


041505 






7882 


032314 


047524 


020122 


020040 






7883 


032322 


045522 


051504 


000 






7884 














r 003 


{JjCJCf 


040 


050040 


0<:U i03 


DH^H : 


•ASCIZ / 



N 11 



SEO 0143 



ASCIZ / PC RKCS RKER RKUC/ 



ASCIZ / PC PRSNT NXT-CNT/ 



ASCIZ / PC RKCS RKER RKDS RKDA/ 



MO-II-CZRKICF . RKII BASIC LOGIC TEST 2 
CZRICKF.P11 21-FEB-78 08:51 



7886 


0'2334 


020040 


051040 


041513 


7887 


032342 


020123 


020040 


051040 


7888 


032350 


042513 


020122 

Wfc W I b 


020040 

W t W W ~ w 


7889 


032356 


051040 


042113 


020123 


7890 


032364 


020040 


051040 


042113 


7891 


032372 


000101 

WW 1 W 1 






7892 










7893 


032374 


020040 


041520 


020040 


7894 


032402 


020040 


045522 


051503 


7895 


032410 


020040 


020040 


045522 


7896 


032416 


051105 


020040 


020040 


7897 


032424 


045522 


051504 


020040 


7898 


032432 


020040 

W w w ~ w 


045522 


040'«04 


7899 


032440 


020040 

W fc w w ~ w 


042040 


053122 


7900 


032446 


027043 


027056 


041456 


7901 


032454 


046131 


036056 


051504 


7902 


032462 


026513 


042101 


051522 


7903 


032470 


027076 


052523 


027122 


790A 


032476 


051456 


041505 


000 


7905 










7906 


01'503 


040 


041520 


020040 


7907 


032510 


054105 


041520 


020072 


7908 


032516 


051104 


020043 


020040 


7909 


032524 


054503 


020114 


020040 


7910 


032532 


020040 


052523 


020122 


7911 


032540 


020040 


051440 


041505 


7912 


032546 


020040 


042522 


053103 


7913 


032554 


020072 


051104 


020043 


79U 


032562 


020040 


054503 


020114 


7915 


032570 


020040 


020040 


052523 


7916 


032576 


020122 


020040 


020040 


7917 


032604 


042523 


000103 




7918 










7919 


032610 


020040 


041520 


020040 


7920 


032616 


020040 


045522 


041527 


7921 


032624 


020040 


051040 


042113 


7922 


032632 


000101 






7923 










7924 


032634 


020040 


041520 


020040 


7925 


032642 


020040 


042523 


052103 


7926 


032650 


020122 


020040 


054105 


7927 


032656 


041520 


020124 


020040 


7928 


032664 


042522 


053103 


000104 


7929 










7930 


032672 


020040 


041520 


020040 


7931 


032700 


020040 


054105 


041520 


7932 


032706 


020124 


020040 


042522 


7933 


032714 


053103 


020104 


042040 


7934 


032722 


045523 


040455 


051104 


7935 


032730 


000123 






7936 










7937 


032732 


020040 


041520 


020040 


7938 


032740 


020040 


020040 


051104 


7939 


032746 


053111 


021440 


000 


7940 










7941 


032753 


040 


050040 


020103 



HACY11 30A(1052) 
ERROR HEADERS 



B 12 

21-rEB-78 08-58 



PAGE 145 



sfo 0U4 



.ASCIZ / PC RKCS RKER RKDS RKDA DRV« CYL.<DSK-ADRS>.SUR. .SEC/ 



.ASCIZ / PC EXPC: DR# CYL SUR SEC RECV: 0R# CYL SUR SEC/ 



.ASCIZ / PC RKUC RKDA/ 



.ASCIZ / PC SECTR EXPCT RECVD/ 



.ASCIZ / PC EXPCT RECVD DSK-ADRS/ 



.ASCIZ / PC 



DRIV »/ 



.ASCIZ / PC WORD # EXPCT RECVD/ 



M0-11-CZRRICF . RRll BASIC LOGIC TEST 2 
CZRKKF .Pn 21-FEB-78 08:51 



7942 


032760 


053440 


0511 17 


020104 


7943 


032766 


020043 


020040 

W W W ~ w 


054105 


7944 


032774 


041520 


020124 


020040 


7945 


033002 


042522 


053103 


000104 

www " w » 


7946 










7947 


033010 


020040 


041520 


020040 


7948 


033016 


051040 


042515 


000122 


7949 










7950 


033024 


020040 


041520 


020040 


7951 


033032 


051040 


041505 


042126 


7952 


033040 


020040 


051040 


041513 


7953 


033046 


000123 






7954 










7955 


033050 


020040 


041520 


020040 

W w w ~ w 


7956 


033056 


020040 


046040 


041517 


7957 


033064 


020040 


020040 


054105 


7958 


033072 


041520 


020124 


020040 


7959 


033100 


042522 


053105 


000104 


7960 










7961 


033106 


020040 


041520 


020040 


7962 


033114 


051040 


041515 


000123 


7963 










7964 


033122 


^.20040 


041520 


020040 


7965 


033130 


020040 


042514 


042526 


7966 


033136 


020114 


020040 


051040 


7967 


033144 


041513 


000123 




7968 










7969 


033150 


020040 


041520 


020040 


7970 


033156 


020040 


051040 


041513 


7971 


033164 


020123 


020040 


051040 


7972 


033172 


042513 


020122 


042440 


7973 


033200 


051122 


041040 


052111 


7974 


033206 


000 






7975 










7976 


033207 


040 


050040 


020103 


7977 


033214 


020040 


020040 


045522 


7978 


033222 


051503 


020040 


020040 


7979 


033230 


045522 


051105 


000 


7980 










7981 


033235 


040 


050040 


020103 


7982 


033242 


020040 


020040 


045522 


7983 


033250 


051503 


020040 


020040 


7984 


033256 


045522 


051105 


020040 


7985 


033264 


020040 


045522 


040504 


7986 


033272 


000 






7987 










7988 


033273 


040 


05004C 


020103 


7989 


033300 


020040 


042440 


050130 


7990 


033306 


052103 


020040 


051040 


7991 


033314 


041505 


042126 


020040 


7992 


053322 


020040 


045522 


040502 


7993 


053350 


020040 


020040 


045522 


7994 


055556 


051505 


000 




7995 










7996 










7997 




033342 
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ERROR HEADERS 



SEQ 0145 



DH103: 
DH104: 

DH107: 



.ASCIZ / PC RKER/ 



.ASCIZ / PC RECVD RKCS/ 



.ASCIZ / PC LOC EXPCT RECVD/ 



DH117: 
DH126: 

DH130: 



.ASCIZ / PC RKCS/ 



.ASCIZ / PC LEVEL RKCS/ 



.ASCIZ / PC RKCS RKER ERR BIT/ 



DH151 



DH133: 



.ASCIZ / PC RKCS RKER/ 



.ASCIZ / PC RKCS RKER RKDA/ 



DH140: 



.ASCIZ / PC EXPCT RECVD RKBA RKCS/ 



.EVEN 



nO-n-CZRKICF . RK11 BASIC LOGIC TEST 2 
CZRKKf.PII 21-FEB-78 08:51 

7998 
7999 

8000 033342 000400 

8001 

8002 

8003 

8004 000001 



HACni 30A(10S2) 
ERROR HEADERS 

.-DATA BUFFER 

OUTBUF: .BLKU 2S6. 



.END 



D 12 

21-FEB-78 08:58 



PAGE U7 



SEQ 0U6 



THIS 256 UORO BUFFER IS FOR 
DATA TRANSFERS FROM AND 
TO THE DISK. 



* 



MD-^1-czRlclc^ 

CZRICICF .PU 



RICH BASIC LOGIC TEST 2 
21-FEB-78 08:51 



E 12 

HACY11 30A(1052) 21-FEB-78 08:58 PAGE U9 
CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 0U7 



BAOINT 
BAOTHO 
BOAR 
BOAO 
B0A4 
BITO = 
BITOO = 
BIT01 = 
J1T02 = 
3IT03 = 
JITOA = 
JIT05 = 
J1T06 = 
HT07 = 
HTOS = 
JIT09 = 
JIT1 = 

nno = 

J1T11 = 
JIT12 = 
31T13 = 
3ITU = 
3IT15 = 
3IT2 = 
JIT3 = 
3IT4 = 
3IT5 = 
3IT6 = 
31T7 = 
3IT8 = 
JIT9 = 
3PTVEC= 
}RKOAO= 
BRK0A4: 

BTEOP 

CHE1 

CHKCCL 

CHICCRD= 

CHKDA 

CHKOAI 

CHKECL 

CHiCER 

CHKHE 

CHKHEI 

CHKyC 

CH.CRD 

CKSWR = 

CNT.RO= 

CNT.RE= 



CN.RDY 
CN.RST 



004600 

004534 

021074 

021056 

021066 

000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

100000 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000014 

104415 

104416 

020026 
021242 
021402 
104412 
021262 
021270 
021356 
021342 
021234 
021226 
021316 
021760 
104407 
104414 
104413 



022032 
022014 



2108 
2043 
6182 
6180« 
6184» 
993# 
933* 
982# 
981 « 
980» 
979# 
978# 
977# 
976# 
975# 
974# 
992# 
973# 
972# 
971# 
970# 
969# 
968# 
991 # 
990# 
989# 
988# 
987# 
986# 
985# 
984# 
1000# 
3697 
2834 
5693 
5820/r 
6262 
4987 
2612 
2847 
3175 
4983 
2861 
2840 
3166 
2851 
6522^ 
6610 
3967 
2310 
3128 
4489 
5189 
5876 
6561 
6559# 



2136# 
2106 
6187# 
7216 
7218 
2002 
993 
992 
991 
990 
989 
988 
987 
986 
985 
984 



6640 
6723 
5908 
6611 
2001 



6678 



6288 

2930 

5709 

6731 

6265# 

5055 

2672 

2942 

3265 

5051 

2957 

2936 

3377 

2947 

7210 

6672 

4025 

2357 

3221 

4596 

5226 

7212# 

6562# 

7212 



4643 
2117# 



6625 
6633 



2006 



4688 
5657 



4707 
5661 



4718 



4798 



4806 



4895 



4904 



5548 



2006 2010 2270 5904 



2010 6720 



6722 



721 6# 






















3032 


3160 


3249 


3370 


3538 


3670 


3700 


3819 


4179 


4265 


4523 


6268 


6291 


72 18# 


















5124 


5203 


5364 


5430 


6340# 














3925 


4334 


4428 


5243 


5410 


5470 


5606 


5759 


721 0# 






3045 


4206 


6282# 


















3395 


3559 


6284# 


















5120 


5199 


5286 


5360 


5426 


6329« 












3059 


3295 


4210 


4808 


6316# 














3039 


3256 


4187 


4527 


6264# 














3552 


3687 


3833 


6261# 
















3049 


3278 


3726 


4202 


4819 


6302« 












6695 


72060 




















4043 


4092 


5021 


5321 


6393 


7214* 


7284 


7286 








2394 


2446 


2531 


2566 


2598 


2656 


2722 


2776 


2895 


2996 


3098 


3345 


3452 


3508 


3637 


3792 


3906 


4003 


4120 


4234 


4308 


4397 


4662 


4748 


4769 


4847 


4927 


4973 


5004 


5041 


5070 


5110 


5139 


5259 


5276 


5305 


5350 


5380 


5425 


5448 


5513 


5587 


5667 


5754 


7275 






















7214 























f 12 



MO- 1 1 - 


CZRKKr , RK 1 1 BASIC 


LOGIC 


TEST 2 


MACrll 


30A(1052) 


^ 1 _C C D. 


•78 08 


58 PAGE 


1 cn 
1 50 












CZRKKF 


.P11 21-FEB-78 


08:51 




CROSS REFERENCE 


TABLE -- 


USER SYMBOLS 












SEO 


COUNT 


001362 


1135* 


3410* 


3414* 


3520* 


3533* 


4516* 


4519* 


5221* 


5264* 










C0UNT1 


001 36A 


1136# 


6390* 


6405* 






















CR 


= 000015 


908* 


6842 


6852 






















CRETRN 


021430 


6266 


6285 


6303 


6317 


6330 


^ 9 i 4 

6341 


6346* 














CRLF 


= 000200 


909* 


1884 


6813 


6852 




















DOISP 


= 177570 


915* 


1057 


1855 






















DDPCH 


00U10 


1156* 


1885 


1905 


1912* 


1914 


4 A 4 / ^ 

1916* 


1920 


1929 


1941 


2197 


2199 


2275 


2284 


DELAY 


= 10AA17 


2342 


5155 


5166 


5584 


722QM 


















OELA.Y 


021664 


6456* 


7220 
























DH100 


032753 


1565 


1663 


7941* 






















DH103 


033010 


1586 


7947* 
























DH104 


033024 


1593 


7950* 
























DH1C7 


033050 


1614 


7955* 
























DH117 


033106 


1551 


1670 


1677 


1684 


1698 


4 ^Af 

1705 


4 M 

7961* 














0H126 


033122 


1719 


1726 


7964* 






















DH130 


033150 


1733 


7969* 
























DH131 


033207 


1741 


1762 


7976* 






















DH133 


033235 


1755 


7981* 
























DHU 


032113 


1248 


1776 


7851* 






















DHUO 


033273 


1790 


7988* 
























Dh2 


032020 


1712 


7837* 
























DH21 


332150 


1346 


7857* 
























DH30 


032155 


1269 


1276 


1367 


1 381 


1402 


1452 


4 IT A 

1 579 


1628 


1635 


1691 


7859* 






DH3^ 


032213 


1262 


1283 


1297 


1332 


1530 


7866* 
















DH35 


032231 


1304 


7870* 
























DH36 


032251 


1311 


7874* 
























DH4 


032047 


1255 


1318 


1339 


1 374 


1395 


1445 


1459 


1482 


1523 


1558 


1600 


1607 


1642 






1649 


1656 


1 748 


1 769 


1805 


7842* 
















OHAO 


032301 


1325 


7880* 
























DH4i4. 


032327 


1241 


1290 


1353 


4 9 ^ A 

1 360 


1388 


1572 


4 ^ ^ 4 

1621 


1783 


7885* 










DH5 


032075 


1438 . 


7847* 
























0H5A 


032374 


1410 


1420 


1504 


1514 


7893* 


















0H56 


032503 


1429 


1466 


7906* 






















0H6A 


032610 


1475 


7919* 
























DH66 


032634 


1489 


7924* 
























DH67 


032672 


1496 


7930* 
























DH74 


032732 


1537 


1544 


1798 


7937* 




















OISPLA 


001142 


1057* 


1855* 


1863* 


6654* 


6675* 


















OISPRE 


000174 


1015* 


1863 
























DRESET 


021504 


2734 


4674 


4991 


5260 


5818 


6390* 


6428 


7273 


7291 










ORHOLD 


025302 


7276* 


7285 


7290 


7294* 




















DRIVAO 


001350 


1127* 


2104* 


2272* 


2277 


2289 


2321 


2367 


2404 


2416 


2456 


2541 


2567 


2610 




2669 


2738 


2818 


2833 


2913 


2929 


V A 4 r 

301 5 


3031 


3068 


3123 


3236 


3248 


3262 






3332 


3505 


3620 


3784 


3920 


/ A 4 C 

401 5 


y 4 ^ 4 

4161 


4178 


4254 


4264 


4326 


4356 


4419 






4454 


4511 


4522 


4549 


4673 


4727 


4730 


4749 


4785 


4862 


4939 


5017 


5086 






5222 


5316 


5407 


5465 


5530 


C C A A 

5599 


r ^ o 4 

5681 


5757 


5823* 


6264 


6282 


6360 


6391 






6425 


6716 


6725 


7276 


7277 


7279* 


f col * 


7282 


7290* 


7295* 


7307* 






bRIVS 


001412 


1158* 


1959 


1996* 


^ A 4 < ^ 

201 1 • 


2047* 


Z068* 


2077 


2097 


2237* 


2265 


5820 


5862 


6711* 






6729* 






















7296 




DRIVO 


001414 


1170* 


1973 


^ Af A 

2050 


^ 4 A 4 

2101 


2194 


^ ^ * 
2232 


2234 


2297 


5851 


5891 


6719 




DRIV1 


001416 


1171* 


























>RIV2 


00U20 


1172* 


























>RIV3 


00U22 


1173* 


























)RIV4 


001424 


1174* 


























)RIV5 


001426 


1175* 


























>RIV6 


001430 


1176* 
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SEQ 0U9 



DR1V7 
DRVDON 

ORVPTR 
OSUR = 
DTI 

DT2 



0T20 
0T21 
DT26 

DT54 

EFLG1 

EHTVEC= 

EH100 

EHIOI 

Em02 

Em 03 

EMI 04 

EM105 

Eni06 

EH107 

EH11 

Emio 

EM1 11 

EM112 

EH113 

EM1U 

EM115 

EM116 

EM117 

EH12 

Em20 

EM121 

Eni22 

Em23 

EM124 

EM125 

EM126 

EH127 

EH13 

•mso 

:H131 
■Ml 32 
:M133 
:H13A 
:m35 
■H137 
:HUO 
:«U1 
:«U2 

■m6 

:H21 
:H30 



00U32 
001352 
001 35A 
177570 
031724 

031732 



031742 
031756 
031762 

031774 
001370 
000030 
027756 
030001 
030043 
030067 
030105 
030156 
030214 
030245 
025370 
030306 
030351 
030376 
030417 
030456 
030515 
030551 
030624 
025402 
030671 
030744 
031002 
031051 
031110 
031152 
031211 
031252 
025415 
031314 
031351 
031376 
031410 
031433 
031474 
031531 
031547 
031616 
031662 
025427 
025456 
025470 



11 77# 
1128# 
1131# 
914# 

1263 

1699 

1256 

1559 

1770 

1242 

1347 

1249 

1636 

1412 

1138# 

1003* 

1564 

1571 

1578 

1585 

1592 

1599 

1606 

1613 

1804 

1620 

1627 

1634 

1641 

1648 

1655 

1662 

1669 

1240 

1676 

1683 

1690 

1697 

1704 

1711 

1718 

1725 

1338 

1732 

1740 

1747 

1754 

1761 

1768 

1782 

1789 

1797 

1809 

1254 

1261 

1268 



5859 

2102* 

2101* 

1056 

1284 

1706 

1312 

1594 

1806 

1291 

7822# 

1270 

1664 

I42l 

3408* 

1839* 

7590* 

7595* 

7602* 

7607* 

7611* 

7619* 

7625* 

7631* 

7316* 

1775 

7645* 

7650* 

7654* 

7661* 

7668* 

7674* 

7683* 

7320* 

7691* 

7700* 

7706* 

7714* 

7721* 

7728* 

7735* 

7742* 

7323* 

7749* 

7755* 

7760* 

7763* 

7768* 

7775* 

7781* 

7785* 

7793* 

7799* 

7326* 

7331* 

7334* 



7308 

5816* 

2268 

1854 

1298 

1799 

1319 

1601 

7816* 

1354 

1277 

1692 

1431 

3429* 

1840* 



5820 
2286* 

1305 
7814* 
1326 
1608 

1361 

1368 
1734 
1468 
3629* 



6714 

1333 

1340 
1643 

1389 

1382 
1756 
1506 
3633* 



1439 


1538 


1545 


1552 


1587 


1671 


1678 


1685 


1375 
1650 


1396 
1657 


1446 
1713 


1460 
1720 


1476 
1727 


1483 
1742 


1524 
1749 


1531 
1763 


1573 


1622 


1784 


1791 


7819* 








1403 
1777 
1516 
3655 


1453 
7824* 
7827* 
3706 


1490 


1497 


1566 


1580 


1615 


1629 



7638* 
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CZRKKF , RH>l 1 BASIC 
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EH51 


025500 


1275 


71Z7M 


EN32 


025510 


1282 


7340# 


E«35 


025531 


1289 


7344# 




025551 


1296 


7348# 


EH35 


025570 


1303 


7352/r 


EH36 


025623 


1310 


7358# 


EH37 


025653 


1317 


7364# 


EHAO 


025707 


1324 


7370# 


EHAl 


025747 


1331 


717711 


En43 


026004 


1345 


2143 


ENAA 


026036 


1352 


7389# 


EH45 


026112 


1359 


7398# 


EH46 


026160 


1366 


7i,0b» 


EH47 


026216 


1373 


7uy2» 


EH50 


026260 


1380 


7i,)9M 


EH51 


026307 


1387 


7i,2'^» 


EH52 


026362 


1394 


7433# 


EH53 


026407 


1401 


7438# 


EHSA 


026452 


1408 


7445# 


EH55 


026544 


1418 


7456« 


EH56 


026623 


1428 


7465# 


EH57 


026662 


1437 


7i,72» 


EH60 


026720 


1444 


7i,76M 


EH61 


026757 


1451 


7485# 


En62 


027014 


1458 


7491# 


EH63 


027026 


1465 


7494# 


En6A 


027072 


1474 


7501# 


En65 


027135 


1481 


7508# 


EH66 


027201 


1488 


7516# 


EH67 


027240 


1495 


7523# 


EH70 


027253 


1247 


1502 


EH71 


027344 


1512 


7537# 


EH72 


027422 


1522 


7546# 


E«73 


027464 


1529 


7553* 


EH74 


027536 


1536 


7561* 


EH75 


027606 


1543 


7569* 


EH76 


027656 


1550 


7))77M 


EH77 


027721 


1557 


7584* 


ERRVEC 


= 000004 


996« 


1852 


FCHECK 


025160 


5801 


727111 


FfLAG 


001404 


1152# 


2291* 


FTITLE 


001346 


1126# 




GNS 


= •••••• u 


1014 


1883 






6573 


6581 






7214 


7216 


GTSUR 


= 104406 


1878 


7204* 


GT2RG 


021010 


4956 


4963 






5346 


5416 


GT3RG 


021002 


2335 


2371 






4425 


4435 


GT4RG 


020774 


2222 


2382 






3157 


3247 






4521 


5691 


HT 


= 000011 


906# 


6811 


INOXI 


001356 


1133# 


2458* 




• 


5867* 


5886 
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7383* 



7526* 



1853* 


1864* 


1892 


1893* 


1901* 


6616 


6617* 


6619* 


6622* 






7301 






















2303* 


5799 




















1926 


1938 


1947 


1951 


1966 


1990 


2122 


2147 


2301 


6151 


6435 


7198 


7199 


7200 


7201 


7202 


7204 


7206 


7207 


7208 


7210 


7212 


7218 


7220 


7222 


7224 
















4969 


5030 


5037 


5092 


5100 


5106 


5170 


5186 


5251 


5272 


5331 


5422 


5541 


6132* 


















2701 


2746 


2823 


2918 


3020 


3547 


3681 


3829 


4167 


4332 


4341 


4440 


4 709 


6131# 


6319 
















2407 


2580 


2626 


2632 


2637 


2683 


2687 


2696 


2832 


2928 


3030 


3368 


3536 


3667 


3817 


3936 


3941 


3945 


4068 


4074 


4177 


4263 


5707 


5925 


6130# 


6267 


6407 


6527 












6852 






















2467* 


3618* 


3735 


3737* 


3743* 


3804* 


3814* 


3898* 


3977 


3982* 


5765 


6027 


6029* 





















MD-1 1-CZRKItF . Run BASIC 


LOGIC 


TEST 2 


MACyl 1 


30A(1052) 


21-F 


CZRKicr . 


P11 21-FEB-78 


08:51 




CROSS 


DEFERENCE 


TABLE 


INDX2 


001 360 


1134* 


2465* 


2469* 


3652* 


3664* 


IOTVEC= 


000020 

www W w 


1001* 


1837* 


1838* 






LF = 


000012 


907* 


6846 


6852 






HSG1 


001216 


1084* 


2045 








nsG2 


001236 


1088* 


2080 








HSG3 


0012A5 


1091* 


6570 








nsG4 


001272 


1096* 


2288 


6724 






1SG5 


001303 


1099* 


6710 








1SG6 


001 31 5 


1 102* 


6728 








NUDRV 


005040 


2250* 


5824 










00U06 


1153* 


5861* 


5910 


5913 


6055* 


OUTBUF 


0333A2 


2788 


2813 


2855 


2857 


2909 






3272 


3274 


3334 


3409 


3521 * 






4160 


4247 


4253 


4277 


4324* 






4462 


4464 


4503 


4789 


4829 






5525* 


5532 


5677 


r An 9 

5893 


5898 


PFSTRT 


004702 


21 74* 


7264 








PHYORV 


00U36 


1 180* 


5850* 


5854* 


m A 4 

5981 


6012 


PIRQ = 


177772 


913* 










PI ROVE = 


000240 


1007* 










PRO 


000000 


930* 










PR1 = 


000040 


931* 










PR2 = 


000100 


932* 










PR3 = 


000140 


933* 










PRA = 


000200 


934* 










PR5 = 


000240 

W W W W ~ w 


935* 










PR6 = 


000300 

w w w ^ w w 


936* 










PR7 = 


000340 


937* 










PS = 


177776 


910* 


91 1 


1894 






PSU = 


177776 


91 1* 










PURVEC= 


000024 


1002* 


1843* 


1844* 


7231 ♦ 


7232* 


RDCHR = 


104410 


71 13 


7207* 








ROLIN - 


104411 


1968 


7208* 








RESVEC= 


000010 


997* 










RKBA 


001336 


1116* 


2815 


2908 


3010 


3146* 






4020* 


4086* 


4160* 


4195 


4198 






4784 


4943* 


5085* 


5319* 


5406* 


RKCS 


001332 


1114* 


2327* 


2608 


2668 


2741 * 






3331 


3529* 


3531 


3660* 


3662 






4320 


4409 


4501 


4612 


4672 






5088 


5151 


5220 


5315 


5379 






6265 


6340 


6342 


6343 


6392* 


RKDA 


001340 


1117* 


1818* 


2042 


2051* 


2052 






2610* 


2669* 


2738* 


2739* 


2818* 






3699 


3808* 


3922* 


3957 


3960 






4419* 


4456 


4459 


451 1 * 


4673* 






5241* 


5252 


5316* 


5317* 


5407* 






5697* 


5757* 


5928* 


6130 


6284 


RKDB 


001342 


1118* 


3084 


3087 


3099 


3101 


RKDS 


001326 


1112* 


1820 


2041 


2063 


2202 






2457 


2505 


2542 


2569 


2619 






4051 


4273 


4540 


4725 


4750 






6426 


7287 








RKER 


001330 


1113* 


2699 


3902 


4344 


4346 






5414 


5476 


5480 


5623 


5629 


RKPRI 


001400 


1 144* 


1897* 


4865 


5945 


6487 
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5781 ♦ 


5872* 


5954 


5975* 










6056 
















2951 


2953 


30 V 


3053 


3055 


3141* 


3146 


3237 


3525 


3651 


3781 


3964 


3968 


3972 


4014 


4147 


4327 


4365 


4367 


4372 


4378 


4380 


4411 


4418 


4831 


4943 


5319 


5392 


5402* 


5406 


5461* 


5467 


5982 


6013 


8000* 












7241* 


7247* 


7259* 


7260* 










3238* 


3272 


3275 


3358* 


3525* 


3653* 


3805* 


3964 


4253* 


4323 


4418* 


4462 


4465 


4510* 


4534 


4537 


5467* 


5532* 


5600* 


5678 


5751 








2814 


2907 


3008 


3120 


3152 


3233 


3240* 


3242 


3810* 


3812 


3900 


4002 


4132 


4172 


4256* 


4258 


4782 


4861 


4946* 


4949 


4967 


5019* 


5035 


5083 


5460 


5537* 


5566* 


5579 


5666 


5758* 


5866 


6133 


6523 


6559* 


6563 


6583 


7283* 








2201* 


2321* 


2367* 


2404* 


2416* 


2456* 


2544* 


2567 


2913* 


3015* 


3122 


3235 


3357^ 


3527* 


3658* 


3694 


3963* 


4018* 


4078 


4081 


4087* 


4161* 


4254* 


4322 


4680* 


4749* 


4783 


4862* 


4944* 


5017* 


5086* 


5154 


5468* 


5486 


5491 


5533* 


5551 


5556 


5599* 


5683 


6290 


6 jOo 


o5oU* 


03V 1 * 




f doc* 


1 CO}* 




3102 


3181 


3186 


3462 


3464 


3465 


^854 


3857 


2320 


2345 


2368 


2377 


2380 


2405 


2418 


2422 


2630 


2679 


2685 


2740 


3545 


3679 


3827 


3901 


4752 


5157 


5965 


5983 


6131 


6362 


6366 


6399 


4438 


4961 


5016 


5098 


5168 


5249 


5328 


5359 


6132 


6316 


6329 


6331 


6332 
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LOGIC 


TEST 2 


CZRKKF . 
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RKVEC 


00U02 


1149# 


2108* 






4869 


4895* 


RKUC 


001334 


1115# 


2817* 






4159* 


4252* 






5405* 


5466* 


SEEKO 


001372 


1141# 


3896 


SEEK1 


001374 


1142# 




SEEK2 


001376 


1143# 


3980 


SHFTRT 


021200 


2290 


4731 


SIMUL 


001344 


1125* 


2030* 


SIZEF 


025304 


5849 


7295* 


SIZYE'' 


001440 


1181* 


2027* 


STACK - 


001100 


901 # 


1835 


START 


002636 

V V k w ^ w 


1018 


1814* 


STARTA 


002704 


1817 


182" 


STARTl 


003334 


1891 


1905* 


STKL?<T = 


177774 


91 2# 




ST2 


003736 


1911 


1935 


ST3 


004262 


1922 


1933 


ST4 


004456 


2031 


2034 


SUR 


001140 


1056# 


1833 






6611 


6625 






7252* 




SUREG 


000176 


1016# 


1862 


SUO = 


000001 


9654f 




SUOO = 


000001 

V W V W V I 


955* 


965 


SW01 = 


000002 


954# 


964 


SU02 = 


000004 

Vr W V W W ~ 


953* 


963 


SU03 = 


000010 


952# 


962 


SWOA - 


000020 

W W W W ^ V 


951* 


961 


SW05 = 


000040 


950* 


960 


SU06 = 


000100 


949* 


959 


SW07 = 


000200 


948* 


958 


?W08 = 


000400 


947* 


957 


SU09 = 


001000 


946* 


956 


SU1 = 


000002 


964* 




SU10 = 


002000 


945* 


2028 


SW11 = 


004000 


944* 




syi2 = 


010000 


943* 


6696 


SWT 3 = 


020000 


942* 


6431 


syu = 


040000 


941* 




SW15 = 


100000 


940* 




SU2 = 


000004 


963* 




SU3 = 


000010 


962* 




^UA = 


000020 


961* 




sys = 


000040 


960* 




SU6 - 


000100 


959* 




SW7 = 


000200 


958* 




SU8 = 


000400 


957* 




SU9 = 


001000 


956* 




TBITVE= 


000014 


998* 




TIMER 


001366 


1137* 


6361* 


TKVEC = 


000060 


1005* 




TPVEC = 


000064 


1006* 




TRAPVE= 


000034 


1004* 


1841* 


TRTVEC= 


000014 


999* 





J 12 

HACY11 30A(1052) 21-FEB-78 08:58 PAGE 
CROSS REFERENCE TABLE — USER SYMBOLS 



154 



4613 

4904* 

2912* 

4321 

5531 * 

3985 



4734 
2033* 

2039* 

2127 
1828* 



6699 



6567 



4631* 

5534 

30U* 

4417* 

5598* 



5999 
5335 

5847* 

2164 



4643* 

5548* 

3148* 

4448 

5680* 



6018 
3433 



6686 



4677 

5942 

3239* 

4450 

5696* 



6228* 
3b22 



4688* 4697* 4707* 4718* 4790 



5359* 
4509* 
5755* 



6717 
5732 



5526* 
4787* 
6302 



6726 
3785 



3655* 
4942* 
6305 



5866 



5807. 
4955 



5965. 
5084. 



4798* 

4019. 
5095 



SEO 0152 

4806* 

4085. 
5518* 



4000 



1959* 


1992 






2039* 








2078 


2081 


2096* 


6096 


1854* 


1856 


1862* 


1876 


6627 


6655 


6640 


6678 


1876 


7009 


7022 





2028 
6686 



2158 
6692 



2152 
6696 



2157 
6699 



6187 
7009 



6451 
7046* 



6567 
7259 



6364* 6456* 6459* 6484* 6490* 6522* 6525* 



1842* 



M0-n-C2RKKF 
CZRKKF.PIl 

TSTENO 020626 

TSTRUS 02U36 

TSTSIN 021572 

TST.SI= 104421 
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TST1 

TST10 

TST11 

TST12 

TST13 

TSTU 

TST15 

TST16 

T5T17 

TST2 

TST20 

TST21 

TST22 

TST23 

TST24 

TST25 

TST26 

TST27 

TST3 

TST30 

TST31 

TST32 

TST33 

TST34 

TST35 

TST36 

TST37 

TST4 

TST40 

TST41 

TST42 

TST43 

TST44 

TST45 

TST46 

TST47 

TST5 

TST50 

TSTSI 

TST52 

TST53 

TST54 

TST55 

rST56 

TST57 

TST6 

TST7 

TYERPI 

TYPDS 

TYPE 



004706 
005742 
006030 
006110 
006252 
006416 
006510 
006746 
007174 
005040 
007504 
007702 
010154 
010524 
011004 
011414 
011722 
012242 
005236 
012530 
012764 
013170 
013436 
013720 
014176 
014330 
014654 
005350 
015070 
015274 
015456 
015564 
015740 
016076 
016304 
016456 
005436 
016634 
016762 
017134 
017330 
017622 
017760 
020004 
020054 
005464 
005522 
021026 
104405 
104401 



6028 

2750 

6425# 

2666 

4244 

5458 

2110 

2481 

2554 

2579 

2642 

2705 

2775# 

2866 

2970 

2259# 

3100 

321 9# 

3300 

3463 

3614# 

3733 

3867 

3998* 

2309* 

4001 

4215 

4274 

4376 

4470 

4541 

4660# 

4758 

2341 

4830 

4901 

5003* 

5069* 

5138* 

5163 

5291 

5378* 

2381 

5447* 

5489 

5578* 

5647# 

5659 

5797* 

5814* 

5845# 

2406 

2419 

2055 

6085 

1872 



6055* 



5128 


5207 


5236 


5256 


5585 


5752 


6360/r 












7224 
























2732 


2786 


2905 


3006 


3138 


3231 


3355 


3518 


3648 


3802 


3916 


4130 


4318 


4407 


4499 


4606 


4779 


4857 


4937 


5014 


5080 


5149 


5239 


5390 


5523 


5744 


7224f 




















2192* 
























2503 


2508 


2515 


2530* 



















2565* 
2597* 
2655* 
2721* 

2893* 
2995* 

3119* 

3328* 
3497* 

3749 
3894* 



4100 

4233* 

4294 

4396* 

4488* 

4559 

4768* 
2356* 
4846* 
4926* 



5219* 
5304* 

2393* 

5512* 



2415* 

2445* 

2086 

7202* 

1924 



3777* 

4119* 
4307* 

4584 4595* 



5717 5742* 



6148* 

1936 



1945 



1949 



1964 



1988 



2044 



2066 



2079 2120 2140 2142 
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2145 


2288 


2299 


2304 


6083 






6724 


6728 


6742 


6759 


6761 






7021 


7024 


7037 


7048 


7067 






7150 


7198* 


7261 






TYPOC = 


' w ~ ~ w C 


2071 


2125 


2150 


6154 


6439 


TYPON - 


10A404 


7201# 










TYPOS = 


10AA03 


1930 


1942 


2293 


7200* 




T56 


020140 


5862# 


6058 








T56FLG 


00K34 


1179# 


2096* 


5865* 


6059* 


6707 


UATIME 


021742 


2099 


2174 


6500* 






UATINT 


021706 

Wh I ( WW 


6484# 


7222 








MAT . IN= 


104420 


4619 


4633 


4682 


4703 


4794 


SAUTOB 


0011 34 


1053# 


1880* 


7017 


7166 




SBDADR 


001122 

W W > 1 W c 


1048# 










SBODAT 


001126 


1050# 










SCHARC 


023304 


6818* 


6828* 


6835 


6844* 


6849* 


SCKSUR 


023762 


7009# 


7206 








SCMTAG 


001 100 


1036# 


1830 


1831 


1839 


1845 


SCM1 = 


000012 


1068# 


1069# 


1070* 


1071* 


1072* 


SCM2 - 


000024 


1068# 


1069* 


1070* 


1071* 


1072* 


SCM3 = 


000012 

www 1 L. 


1066/r 


1068 








$CNTL6 


024647 


7020 


7161* 








SCNTLU 


024642 


7037 


7135 


7160* 






SCRL^ 


00121 3 


1081* 


2067 


2141 


2305 


6689 






7160 










S06LK 


023524 


6877 


6911 


6919* 






SDOAGN 


020750 


6079 


* 6088 


6094* 






SDTBL 


023514 


6880 


6915* 








SENOAD 


020740 


1025 


6090* 








SENDCT 


020706 

W k W 1 WW 


6081# 










SENOMG 


020757 


6083 


6098* 








SENULL 


020754 


6086 


6097* 








SEOP 


020652 


2100 


2267 


5864 


6071* 


6713 


tEOPCT 


020700 

W b w ■ w w 


6078* 


6082 








SERFLG 


001103 


1039# 


6600 


6629 


6631 


6637* 


SERNAX 


001115 


1045# 


1847* 


6631 


6653* 


6658 


SERROR 


022412 


1839 


6672* 








SERRPC 


001 116 


1046# 


6683* 


6684* 


6685 


6748 


$ERRTB 


001442 


1196* 


6756 








SERRTY 


022734 


6688 


6741* 








SERTTL 


001112 


1043* 


2264* 


5826* 


6676* 


6680 


SESCAP 


001210 


1079* 


1846* 


6652* 


6702 


6704 


fFILLC 


001156 


1064# 


6821 


6852 






SFILLS 


001155 


1063# 


6852 








$GOAOR 


001120 


1047# 










SGOOAT 


001124 


1049* 










SGET42 


020730 


6087/r 










SGTSWR 


024032 


7021* 


7204 








SHO = 


000000 

w w w w w w 


871 










tICNT 


001104 


1040# 


6644* 


6645 


6647* 


6657 


IILLUP 


025142 


7231 


7247 


7266* 






tINTAG 


001135 


1054# 


7049 


f 166 






SITEHB 


001114 


1044# 


6685* 


6745 






ILF 


001214 


1082* 


6852 


7150 


7160 




SLPAOR 


001106 


1041* 


1848* 


2155 


6635* 


6650* 


SLPERR 


001110 


1042* 


1849* 


3126* 


3329* 


3499* 
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6086 
6764 
7120 


6149 
6766 
7126 


6433 
6770 
7131 


6569 
6777 
7135 


6571 
6816 
7140 


6579 
6911 
7141 


6689 
6981 
7143 


6710 
7020 
7146 


6577 


6584 


6727 


6750 


6774 


7023 


7199* 




5538 


7222* 














1846 

1073* 

1073* 


1074* 
1074* 


1075* 
1075* 


1076* 
1076* 


1077* 
1077* 


1078* 
1078* 






6742 


6761 


6766 


6770 


6817 


6852 


7048 


7140 


6658 


6673* 














7814 


7816 


7819 


7622 


762(, 


7627 






6655 
3616* 


6657 
1779* 


6698 
3903* 


4859* 


5224* 


5582* 


5748* 


6635 
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OO J 1 " 


00 J 1 


A7ni 

0 ' U 1 






•nwiL - 


1^ 1^ A 1^ 1^ A 


u 


1 AAA 
1 000 


1 A7A 
1 Of 0 


AASO 
003v 


AAO^ 
Oov J 




#nrlClf 


UchOO J 




1 UcH 


71 kLM 








#n own 






70? 1 
f Uc 1 


71 kJIt 
1 1 Oc* 








9n A ^ VI I 


VCCH 1 U 




00*»0 


OO J (* 








• NULL 






1 UOc* 


OOc J 


AAS? 
OO JC 








wUvvv 1 




?l 7ftir 

C 1 » 0» 


?1 AO 
c 1 OU 


CC^ 


??SS 


?1061 
C JuO* 








?SA?# 

C JOcw 


?SAA# 


?S90 


?648t 


?650 

CO Jv 








J 1 v3* 


7107 


7?00# 

JCvvW 


1?0? 


13091 








JOOO 


19901 

J T7V» 


199? 


41111 


41 1 3 
■t 1 1 J 








4SA7« 


*• JOT 


46S1 f 

*tO J 1 ^ 


4651 

•♦O J J 


47671 








J vOc 




51 14 


S?1 ?1 

J c 1 c * 


5?1 4 

J C 1 H 












56171 


S619 

JO 


571?1 








OT J J " 




699S# 

07T J* 








vC J f Ow 




AQ4A* 




6957 

O T J f 


6960* 

OTOV" 


6971 * 

O ' • 1 




C J f ^ 




661 ? 


OOC o 


OO JO 


6646 


66S41 

OO JHW 




001 1 00 




10^7# 

1 V J f w 


WW f J ■ 


OO f o ■ 


6084 


6097 




o?si so 




7?6? 
f coc 


1 COT*r 








9rWnnv 


0?S1 

vC J 1 JO 




7?64# 










tPURDM 






1 A47 

1 OH J 


f C J 1 w 


f C JT 






tPURMG 


0?51 ^? 

vC ^ 1 JC 




7?6?# 










ftPURIIP 


OPSOSO 

VC J\J Jv 




f 1 


r C" • »» 










001 ?1? 




1 wOvfv 


685? 

O V J C 


7067 

f wW • 


7143 


7160 

c 1 Ow 


9ni/\, nn 






r vOv*' 


7?07 

r Cvr 










****** 


V 


r CVT 
















7108# 

f 1 VOw 


7?oa 

f C WW 








tPDnrT= 


****** 


11 

V 


7?09 

f C VT 












0000?? 

w V V vC C 




7101# 

r 1 w 1 












001 

WW 1 1 Uw 




1066# 

1 vww<v 










#n c vjv/ 


001 1^? 

vv 1 1 oc 




1 wWO<V 


??1 1 * 

cell 


?1?4* 


?145* 

C J** -/ 


?377* 

C J» ' 








?706* 

C f VO * 


?857* 

C w J f * 


?867* 
coo ' * 


?951* 

C7 J 


?964* 

C TO** * 








^?86* 


3301 * 


1389* 


1417* 


3448* 








40^4* 


4080* 

vov * 


4101* 


4197* 


4216* 








4458* 


4464* 


4471* 


4536* 


4547* 

■t Jt ■ ^ 








4799* 


481 5* 


4831* 


4884* 


4910* 

■t 7 1 V 








5771 * 


5961 * 


5968* 

J 7WU 


6000* 

WVVV " 


6019* 

WW 1 T 








7824 


7827 

f uc ■ 










001 164 

WW 1 1 Ut 




1069# 

1 VW 


251 1 * 

C J 1 1 


?518* 

C 1 w " 


?557* 


?644* 

C w*t«f 








^087* 

J wU f 


JVTt 


3101 * 

J 1 W 1 ■ 


110?* 

J I VC 


3186* 

J 1 wO " 










3857* 


3952* 

J T JC ^ 


3960* 

J TOV 


3971* 








4368* 


4379* 


4451* 


4459* 


4465* 








491 1* 


5293* 


5339* 


5480* 

J w V ■ 


5491 • 

J^ 7 1" 








6343* 


7816 

f O 1 W 


7819 

r w 1 7 


78?4 

f OC ~ 


78?7 

' wC « 




00120? 




1076# 

1 w f WW 


?833* 


?9?9* 

C 7 C T 


3011 ♦ 


11 58* 

J 1 J o ■ 








4?64* 


45??* 

J C c ■ 


569?* 

JOTC " 


5708* 

J » vO 


619? 

U 1 7C 




001204 

VV 1 CVt 




1077# 










IRFG2 


001166 

Vw 1 1 W 




1070# 

1 V f v^ 


?966* 

C TOO ■ 


1068* 

J voo 


1288* 


1191* 

JJw 1 








4549* 


4563* 


4955* 

^ 7 J J ^ 


4964* 

^ 7W~ 


5029* 

JVC 7 








7819 


7824 

r wC~ 


7827 

f wC r 






sregs 

• " U V V 


001 1 70 

VV 1 1 f V 




1071# 


3548* 


3682* 


3830* 

JO JV ^ 


5723* 


SREG4 


001172 




1072# 


7827 








SREG5 


001174 




1073# 


7827 








IREG6 


001 1 76 




1074# 


7827 








SREG7 


001200 




1075# 


6185 


7627 






SRTNAD 


020752 




6096# 










IR2A = 


****** 


u 


7209 
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23531 


2390# 


24101 


2412 


24281 


2430 


25251 


2527 


2711# 


2713 


2760M 


2762 


2672M 


2874 


29791 


2981 


3311 


3470# 


3472 


3595# 


3597 


37541 


3756 


3886# 


4222# 


4224 


43011 


4303 


43871 


4389 


44751 


4477 


4764 


4836# 


4838 


4918# 


4920 


4995# 


4997 


5060# 


52971 


5299 


53691 


5371 


54351 


5437 


55031 


5505 


5734 


57911 


5793 


S806/r 


5808 


5829# 


5831 




69971 
















6642 


6658 














2422* 


2500* 


2505* 


2510* 


2517* 


2556* 


2576* 


2643* 


2971* 


3055* 


3066* 


3086* 


3093* 


3185* 


3274* 


3285* 


346A* 


3714* 


3715* 


3842* 


3856* 


3953* 


3959* 


3970* 


4284* 


4285* 


4346* 


4352* 


4360* 


4367* 


4378* 


4450* 


4566* 


4621* 


4689* 


4700* 


W122* 


4732* 


4752* 


4759* 


5292* 


5338* 


5479* 


5490* 


5555* 


5616* 


5628* 


5721* 


6133* 


6305* 


6331* 


6342* 


6366* 


7814 


7816 


7819 


2707* 


2858* 


2868* 


2954* 


2965* 


2972* 


3056* 


3067* 


3275* 


3287* 


3302* 


3390* 


3418* 


3449* 


3465* 


3712* 


4035* 


4081* 


4102* 


4198* 


4217* 


4286* 


4353* 


4361* 


4472* 


4537* 


4548* 


4562* 


4735* 


4816* 


4832* 


4885* 


5556* 


5617* 


5629* 


5719* 


5772* 


6132* 


6306* 


6332* 


3248* 


3369* 


3537* 


3668* 


3696* 


3699* 


3818* 


4178* 


6196 


6261* 


6264* 


6287* 


6290* 








3419* 


3713* 


3844* 


3972* 


4036* 


4103* 


4288* 


4380* 


5093* 


5101* 


5171* 


5252* 


5332* 


5417* 


5722* 


6131* 


6130* 


6181 


6560* 


6562* 


6565* 


7819 


7827 
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tCAUDC- 


%%%%%% \j 


7209 

f CUT 












Uc J 1 HO 


7240* 


7248 


7249* 


72^0* 


7268* 






1R^7 

1 Oj I 










tCFTIIP- 
» OC 1 Ur — 


nnni i 7 

UUU 1 1 1 


1 O 1 


18^6 


18^7 

1 W J f 


1839 


1841 






7004 










1 Ur - 


1 77777 


1ft14# 














OOcw 










tcupr - 






1028 








9 jWn — 






871 

Or 1 


877 

Off 


878 


879 

O f T 






1 A4S 

1 OH J 


1846 

1 OHO 


1848 

1 w"»w 


1849 

1 O" 7 


2193 






2S98 


26S6 

CO JV 


2722 


2776 

C ■ • W 


2894 

C W 7^ 






JTTT 


4120 


4234 


4308 


4397 

T J 7 1 






J 1 JT 


S220 


5305 


5379 

J J * 7 


5448 






U w ' 


6089 

Ow W 7 


6095 

U W 7 


6097 


6601 

WWW I 






6629 


6630 

WW J W 


6631 


6638 


6639 




000000 

UVv Www 


884 

wO~ 


885 


6605 

U WW ^ 


6606 

WW WW 


6627 

VWb f 




WW I Cwu 


1078# 


1845* 


2260* 


3498* 

7W " 


3615* 






5846* 


6074* 

UW r * 


6638* 

WW^W 


6645 


6648* 

w w ~ w 


9 1 KO 


WW 1 1 HO 


10S9# 


7002 

f WWb 


7013 

f W • ^ 


7030 


7084 

F WO^ 


9 I KO 


VW 1 1 HH 


10S8# 


S698 

W 7 w 


5699* 


571 5 


5718 


9 in 


0000^0 

wvwwwv 


o * 


871 

O f 1 


2178 


2193* 


2253 








2406 

C. "two 


2410 


2416* 

C ~ ' WW 


2419 

t ~ 1 7 






2554 


2562 

L OC 


2566* 

c </ ov 


2579 


2588 

C </Uw 








2866 

C WOO 


2872 

C w f c 


2894* 

C W 7^ W 


2970 

C 7 f W 






3309 


3329* 


3463 


3470 


3498* 








3990 

J 7 7W 


3999* 


4001 

~ww » 


41(jO 

~ 1 WW 






4308# 


4376 


4387 


4397* 


4470 






4661# 


4758 


4762 


4769* 


4830 






5070* 


5132 


5139* 


5163 


5212 






5489 


5503 


5513* 


5569 


5579* 






5806 

^ w WU 


581 5* 


5829 

</ Wfc ' 


5846* 

J W^ WW 






001152 


1061* 

1 WW 1 " 


6841 * 


6852 

W W ^ b 






tTPFLG 


001157 

WW 11^' 


1065* 

1 WW 


6799 


6852 






tTPS 


001150 

WW 1 1 ^w 


1060* 

1 wwww 


6839 


6852 

W W ^ 






STRAP 


0P4676 

WC"VU r U 


1841 


7175* 








STRAP? 


024720 

WC"t r C W 


7186* 

f 1 WU~ 


7197 






72*02* 


STRP = 


000022 

WWW WC ft. 


7190* 


7199* 


7200* 


7201* 






7211* 


7212 


7213* 


7214 


7215* 






7224 


7225* 








STRPAO 


024732 


7180 

f 1 WW 


7197* 








STSTNM 


001 102 

WW ( 1 wc 


1038* 

1 W^ WW 


2261 * 


6073* 

W W ( 


6600 


6627 

WWb • 


iTTYIN 

9 1 1 lira 


024620 


7110 

r 1 1 w 


7111 


7123 


7141 


7155 


ST VPBMr 


****** (J 


7203 

■ fcWJ 










STYPDS 


025310 


6865* 


7202 








STYPE 


023070 


6799* 


7190 


7198 






STVPEC 


023240 


6820 

W Wb w 


6827 


6834 


6839* 

WW ^ 7 W 


6840 


$TYPEX 


023306 


6845 


6847 


6850* 






STYPOC 


023560 


6951* 


7199 








STYPOM 


023574 


6^50 


6953* 


7201 

f W 1 






ITYPOS 


023534 


6946* 


7200 

■ WW 








SXTSTR 


022152 


66U* 










SSGETA- 


000000 


6089* 










SOFILL 


023757 


6947* 


6951* 


6961 


6996* 




$40CAT= 


*••••* (J 


6611 












034342 


1010* 


1014* 


1023 


1024* 


1026* 






1884* 


1927* 


1939* 


1948* 


1952* 
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1843 


1845 


1846 


1848 


1872 

■ w ■ L ^ 


1873 


6073 


6610 


880 


881 


882 


883 


884 


1078 


1079 


1080 


2260 


2310 


2357 


2394 


2416 


2446 


2531 


2566 


2996 


3120 


3220 


3329 


3498 


3615 


3778 


3895 


4489 


4596 


4661 


4769 


4847 


4927 


5004 


5070 


5513 


5579 


5648 


5743 


5798 


5815 


5846 


6068 


6602 


6603 


6604 


6605 


6611 


6623 


6625 


6626 


6640 


6651 


6654 


6657 


7265 








3778« 


3895* 


3999* 


4661* 


5648* 


5743* 


5798* 


5815* 


6657 
















7090 
















7002 


7011 


7027 


7051* 


7082 


7088 






2260* 


2306 


2310* 


2341 


2353 


2357* 


2381 


2390 


2428 




2481 


2503 


2508 


2515 


2525 


2531* 


2598* 


2642 


2648 


2656* 


2705 


2711 


2722* 


2760 


2979 


2996* 


3100 


3105 


3120* 


3200 


3220* 


3300 


3595 


3615* 


3733 


3749 


3754 


3778* 


3867 


3886 


4111 


4120* 


4215 


4222 


4234* 


4274 


4294 


4301 


4475 


4489* 


4541 


4559 


4584 


4587 


4596* 


4651 


4836 


4847* 


4901 


4918 


4927* 


4995 


5004* 


5060 


5220* 


5291 


5297 


5305* 


5369 


5379* 


5435 


5448* 


5637 


5648* 


5659 


5717 


5732 


5743* 


5791 


5798* 


7203* 


7204 


7205* 


7206 


7207* 


7208* 


7209* 


7210 


7216 


7217* 


7218 


7219* 


7220 


7221* 


7222 


7223* 


6649* 


6654 


6658 


6675 








a 


7159* 














4 


7053 
















1028* 


103b* 


1083 


1087* 


1824 


1834 


1848 


1849 


1991* 


2123* 


2148* 


2266 


2620 


3193 


3440 


3569 
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CZRKKf.PlI 2'-fEB-78 08:51 CROSS REFERENCE TABLE — USER SYMOLS SEQ 015 

4055 461 4879 5887 5889 5896 5994 6097 6101 6152# 6403 6436* 6582* 

6657 66 j8 66<'1 6697 6780* 6852 6919* 7002 7159* 7160 7166 7243 7267 

7810* 7',97* 8000* 
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^ L n K K r m 


P1 1 71 

ill C 1 


-FEB-78 08:51 




CROSS REFERENCE 


TABLF — 


MACRO 


NAMES 












SFO 


rOMMFM 


1 M 


1008f 




























u ni/v vin 




1008f 
































2212 


2223 


?3?5 


2336 


2346 


2372 


2378 


2383 


2408 


2423 


2501 


2506 

C J WW 


2512 


2519 

C J * ' 




C J JO 


2577 


2581 


C O 1 H 


2627 


2633 


2638 


2645 


2674 


2684 

L L/ U ~ 


2688 

C WWW 


2697 

CO'* 


2702 

C ' wc 


2708 

c ' wo 


2735 

C • J J 






2751 


2824 




2843 


2849 


2855 


2859 


2863 

b OO J 


2869 

COOT 


2919 


2932 


2938 

C T JO 








7QSS 


2959 


2967 


C T ' J 


3021 


3034 


3041 


5047 


3051 


3057 


3061 


3069 


3088 

J WOO 


3095 

JW 7 J 


3105 

J 1 V J 




^1 A? 
J 1 oc 


3168 


3177 




3251 


3258 


3267 

J C O f 


3276 


3280 

J C w W 


3289 


3297 

JC w r 


3303 

JJV J 


3372 

J J * C 


3579 

JJ* ' 


3592 






3421 


3450 




3540 


3549 


3554 


3561 

J JV t 


3672 


3684 


3689 


3702 

J * wc 


3717 

J 1 If 


3728 


3821 

JVC ' 




JO J 1 


3835 


3845 




3927 


3937 


3942 


3946 


3954 


3961 


3973 


4037 


4069 

~ WW ' 


4075 


4082 

~ w w t 






4168 


4181 


4189 


4199 


4204 


4208 


4212 


4218 


4267 


4289 


4333 


4337 


4342 


4347 

^ J~ 1 






4362 


4369 


4381 

"t J O 1 


4426 


4430 


4436 


4441 


4452 


4460 


4466 


4473 


4525 


4529 

~ JC T 


4538 

~ J J w 




455? 


4568 


4622 


4640 

■f o~ w 


4675 


4690 


4701 


4710 


4723 


4736 


4753 


4760 

^ f WW 


4800 

~ WWW 


4810 

~o ' w 


4817 




HOC 1 


4833 


4886 


4912 


4957 


4965 


4970 


4985 


4989 


4992 


5031 


5038 


5053 


5057 

Jv J ' 


5094 




5102 


5107 


5122 


5126 


5130 


5172 


5187 


5201 


5205 


5209 


5238 


5245 


5253 


5258 


5261 




5273 


5288 


5294 


5333 


5340 


5347 


5362 


5366 


5412 


5418 


5423 


5428 


5432 


5472 


5481 




5492 


5542 


5557 


5586 


5608 


5618 


5630 


5694 


5710 


5724 


5753 


5761 


5773 


5802 


5819 




5926 


5962 


5969 


i003 


6021 


7274 


7292 




















If 


1008f 




























CFTPR1 


If 


1008f 




























GF T^UR 


1 f 


852f 


1008f 


1873f 
























■IF^AGF 


?1 77f 


2180 


2253f 


2255 


2410f 


2412 


2427f 


2430 


2524f 


2527 


2588f 


2590 


2648f 


2650 


271 If 




?71 3 


2760f 


2762 




2874 


2978f 


2981 


3105* 


3107 


3200f 


3202 


3308f 


3311 


3470f 


3472 




3594f 


3597 


3753f 


3756 


3885f 


3888 


3989# 


3992 


4110f 


4113 


4221f 


4224 


4300f 


4303 


4387f 




4389 


4475f 


4477 


4587f 


4589 


4651f 


4653 


U7f>2» 


4764 


4836f 


4838 


491 8f 


4920 


4995f 


4997 




5060f 

J WWW 


5062 


5132f 


5134 


521 2f 


5214 


5297f 


5299 


5369f 


5371 


5435f 


5437 


5502f 


5505 


5568f 




5571 


5637f 


5639 


5731f 


5734 


5791f 


5793 


5806# 


5808 


5828f 


5831 












10?9f 


1084 




























M(Jl T 


If 


1008f 




























NEUTST 


If 


1008f 


2178 


2253 


2306 


2353 


2390 


2410 


2428 


2525 


2562 


2588 


2648 


2711 


2760 




2872 


2979 


3105 


32C0 


3309 


3470 


3595 


3754 


3886 


3990 


41 11 


4222 


4301 


4387 


4475 




4587 


4651 


4762 


4836 


4918 


4995 


5060 


5132 


5212 


5297 


5369 


5435 


5503 


5569 


5637 




5732 


5791 


5806 


5829 
























POP 


If 


1008f 


6906 


7252 


7253 






















PRIOR? 


1198f 


4608 


4645 


4743 


4824 


4897 


5561 


5662 


5899 














PUSH 


If 


1008f 


6865 


7233 


7239 






















REPORT 


If 


1008f 




























SCOPE 


903f 


2192 


2259 


2309 


2356 


2393 


2415 


2445 


2530 


2565 


2597 


2655 


2721 


2775 


2893 




2995 


3119 


3219 


3328 


3497 


3614 


3777 


3894 


3998 


4119 


4233 


4307 


4396 


4488 


4595 




4660 


4768 


4846 


4926 


5003 


5069 


5138 


5219 


5304 


5378 


5447 


5512 


5578 


5647 


5742 




5797 


5814 


5845 


6072 
























TPR I 


If 


1008f 




























SETTRA 


7190f 


7199 


7200 


7201 


7202 


7204 


7206 


7207 


7208 


7210 


7212 


7214 


7216 


7218 


7220 




7222 


7224 




























SETUP 


If 


1008f 


1828 


























SKIP 


If 


1008f 


2341 


2381 


2406 


2419 


2481 


2503 


2508 


2515 


2554 


2579 


2642 


2705 


2866 




2970 


3100 


3300 


3463 


3733 


3749 


3867 


4001 


4100 


4215 


4274 


4294 


4376 


4470 


4541 




4559 


4584 


4758 


4830 


4901 


5163 


5291 


5489 


5659 


5717 












SLASH 


If 


1008f 




























SPACF 


lOOSf 
























2355 




2392 


STARS 


If 


1008f 


1021 


1031 


1083 


2178 


2191 


2253 


2258 


2306 


2308 


2353 


2390 




2410 


2414 


2428 


2444 


2525 


2529 


2562 


2564 


2588 


2596 


2648 


2654 


2711 


2720 


2760 




2774 


2872 


2892 


2979 


2994 


3105 


3118 


3200 


3218 


3309 


3327 


3470 


3496 


3595 


3613 




3754 


3776 


3886 


3893 


3990 


3997 


4111 


4118 


W22 


4232 


4301 


4306 


4387 


4395 


4475 




4487 


4587 


4594 


4651 


4659 


4762 


4767 


4836 


4845 


4918 


4925 


4995 


5002 


5060 


5068 




5132 


5137 


5212 


5218 


5297 


5303 


5369 


5377 


5435 


5446 


5503 


5511 


5569 


5577 


5637 




5646 


5732 


5741 


5791 


5796 


5806 


5ei3 


5829 


5844 


6064 


6597 


6736 


6784 


6855 


6923 



HD-11- 


CZRKKF, RK11 BASIC 


LOGI 


r7Rkkf 


D1 1 31 


_c ca_7ft 


vO • J 1 




f UU 1 


7I\C\L 


7072 


SURSU 


1 M 


1 uuo* 


1850- 


TRHTRP 


1 1 tU» 






TYPBIN 


1 M 


1 AAflif 




TYPOEC 




1 UUow 


608A 


TYPNAH 


1 M 


8C 3ir 

o JC* 


1008/ 


TYPNUH 


1 m 


1 UUo* 




TYPOCS 


1 m 


1 UUOw 




TYPOCT 


1 M 
1 m 


1 vUo* 


6748 


TYPTXT 


1 H 


1 nnsif 

1 UUow 


1923 


SSCNRE 


1 n?Q# 

1 Uc V» 


1 rtiifl 
1 uoo 


1069 


StCHTH 








SSESCA 


1 • 


1 (\c\HM 




SSNEUT 


1 • 


1 nnflir 

1 UUOw 


2178 




cof c 


3070 


5105 




hJOf 




4762 




J f JC 


^701 


5806 


SSSET 


71 QI\M 
f 1 tUw 


71 QQ 


7200 






T>'>L 




SSSKIP 


1 M 


1 vUO» 


2341 






J 1 vv 


3300 








4758 


.EQUAT 


1 if 


0 JC* 


898 


.HEADE 


1 it 




861 


.KT11 


1 if 






•SETUP 


1 if 


O JC* 


1814 


.SURHI 


1 M 


O JC* 


873 


.SWRLO 


0 J c* 


OO J* 




.SACTI 


1 M 


0 J c* 


1019 


•SAPTB 


1 M 






.SAPTH 


1 A 

1 w 






.SAPTY 








.tASTA 








.SCATC 




RS7# 

0 JC* 


1008 


.SCHTA 


1 M 


0 jC* 


1029 


.S0B20 








.S0620 


1 if 






.SOIV 


1 1 

1 w 






.$EOP 


1 M 

1 • 


O JC* 


6062 


.SERRO 








.$£RRT 


1 it 

1 w 


O JC* 


6734 


.snuLT 








.SPOUE 




RS9iP 

0 JC* 


7227 


.SRAND 


1 M 






.SRDDE 


1 M 


O J c * 




.SRDOC 


1 ir 






.SREAO 


1 # 


O JC* 


6999 


.$R2AZ 


It 






.SSAVE 


1 w 






.$SB2D 








.SSB20 


1 M 






.SSCOP 


1 1 


C J c* 


6595 


.$SI2E 


1# 






•SSUPR 


1# 






.STRAP 


1# 


8S2« 


7167 


.STYPB 


1# 
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7101 7169 7229 7245 



1868 



6772 


7022 






















1956 


1945 


1949 


1964 


1987 


2120 


2145 


2299 


6148 


6435 


6571 


6579 


1070 


1071 


1072 


1075 


1074 


1075 


1076 


1077 










2255 


2506 


2555 


2390 


2410 


2428 


2525 


2562 


2588 


2648 


2^11 


276C 


5200 


3309 


3470 


3595 


3754 


3886 


3990 


4111 


4222 


4301 


4387 


4475 


4856 


4918 


4995 


5060 


5132 


5212 


5297 


5369 


5435 


5503 


S569 


5637 


5829 
























7201 


7202 


7204 


7206 


7207 


7208 


7210 


7212 


7214 


7216 


7218 


7220 


2581 


2406 


2419 


2481 


2503 


2508 


2515 


2554 


2579 


2642 


2705 


2860 


5465 


5755 


5749 


5867 


4001 


4100 


4215 


4274 


4294 


4376 


4470 


4541 


4850 


4901 


5165 


5291 


5489 


5659 


5717 
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.tTYPO 


If 


852* 


6855 


.STYPE 


1# 


852* 


6782 


.ITYPO 


1# 


852# 


6921 


.t40CA 


1« 






.1170 


If 






. ABS. 


054542 


000 




ERRORS 


DETECTED: 


0 





CZRKKF .CZRKKF.LST/CRF/S0L = CZRKKF.SHL,CZRKKF.P11 
RUN-TIP«E: 22 51 1 SECONDS 
RUN-TIME RATIO: 592/55=7.0 
CORE USED: 54K (67 PAGES) 



